home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 71.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 34 34 3a 33 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:44:35 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 76 6d 2f 76 |s-20.3/l|isp/vm/v|
|000000a0| 6d 2d 66 6f 6c 64 65 72 | 2e 65 6c 0a 3b 3b 3b 20 |m-folder|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |).. |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))). |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 76 6d 2d 66 6f 6c 64 |(error "|`vm-fold|
|000001f0| 65 72 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |er.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 0a 28 70 72 | 6f 76 69 64 65 20 27 76 |))...(pr|ovide 'v|
|00000260| 6d 2d 66 6f 6c 64 65 72 | 29 0a 28 64 65 66 61 6c |m-folder|).(defal|
|00000270| 69 61 73 20 27 76 6d 2d | 6e 75 6d 62 65 72 2d 6d |ias 'vm-|number-m|
|00000280| 65 73 73 61 67 65 73 20 | 23 5b 28 26 6f 70 74 69 |essages |#[(&opti|
|00000290| 6f 6e 61 6c 20 73 74 61 | 72 74 2d 70 6f 69 6e 74 |onal sta|rt-point|
|000002a0| 20 65 6e 64 2d 70 6f 69 | 6e 74 29 20 22 c0 09 ae | end-poi|nt) "...|
|000002b0| 81 5c 6e 1b 1c 09 ab 99 | 09 40 c0 48 c5 48 4a ab |.\n.....|.@.H.HJ.|
|000002c0| 90 c6 09 40 c0 48 c5 48 | 4a 40 c0 48 c7 48 21 54 |...@.H.H|J@.H.H!T|
|000002d0| 14 0b 0e 08 61 ac 9e 0b | 40 c0 48 c7 c9 0c 21 49 |....a...|@.H...!I|
|000002e0| 88 0b 40 c0 48 c0 ca cb | 0c 5c 22 49 88 0c 54 14 |..@.H...|.\"I..T.|
|000002f0| 0b 41 89 13 aa 5d 0e 08 | ac 86 c9 0c 53 21 16 0c |.A...]..|....S!..|
|00000300| 0e 0d ad 85 ce 0e 0d cc | 5c 22 2a 87 22 20 5b 31 |........|\"*." [1|
|00000310| 20 73 74 61 72 74 2d 70 | 6f 69 6e 74 20 76 6d 2d | start-p|oint vm-|
|00000320| 6d 65 73 73 61 67 65 2d | 6c 69 73 74 20 6d 65 73 |message-|list mes|
|00000330| 73 61 67 65 2d 6c 69 73 | 74 20 6e 20 36 20 73 74 |sage-lis|t n 6 st|
|00000340| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 30 20 65 6e |ring-to-|int 0 en|
|00000350| 64 2d 70 6f 69 6e 74 20 | 69 6e 74 2d 74 6f 2d 73 |d-point |int-to-s|
|00000360| 74 72 69 6e 67 20 66 6f | 72 6d 61 74 20 22 25 33 |tring fo|rmat "%3|
|00000370| 64 22 20 76 6d 2d 6d 6c | 2d 68 69 67 68 65 73 74 |d" vm-ml|-highest|
|00000380| 2d 6d 65 73 73 61 67 65 | 2d 6e 75 6d 62 65 72 20 |-message|-number |
|00000390| 76 6d 2d 73 75 6d 6d 61 | 72 79 2d 62 75 66 66 65 |vm-summa|ry-buffe|
|000003a0| 72 20 76 6d 2d 63 6f 70 | 79 2d 6c 6f 63 61 6c 2d |r vm-cop|y-local-|
|000003b0| 76 61 72 69 61 62 6c 65 | 73 5d 20 36 20 22 5c 0a |variable|s] 6 "\.|
|000003c0| 53 65 74 20 74 68 65 20 | 6e 75 6d 62 65 72 2d 6f |Set the |number-o|
|000003d0| 66 20 61 6e 64 20 70 61 | 64 64 65 64 2d 6e 75 6d |f and pa|dded-num|
|000003e0| 62 65 72 2d 6f 66 20 73 | 6c 6f 74 73 20 6f 66 20 |ber-of s|lots of |
|000003f0| 6d 65 73 73 61 67 65 73 | 0a 69 6e 20 76 6d 2d 6d |messages|.in vm-m|
|00000400| 65 73 73 61 67 65 2d 6c | 69 73 74 2e 0a 0a 49 66 |essage-l|ist...If|
|00000410| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 53 54 41 52 54 2d | non-nil|, START-|
|00000420| 50 4f 49 4e 54 20 73 68 | 6f 75 6c 64 20 70 6f 69 |POINT sh|ould poi|
|00000430| 6e 74 20 74 6f 20 61 20 | 63 6f 6e 73 20 63 65 6c |nt to a |cons cel|
|00000440| 6c 20 69 6e 0a 76 6d 2d | 6d 65 73 73 61 67 65 2d |l in.vm-|message-|
|00000450| 6c 69 73 74 20 61 6e 64 | 20 74 68 65 20 6e 75 6d |list and| the num|
|00000460| 62 65 72 69 6e 67 20 77 | 69 6c 6c 20 62 65 67 69 |bering w|ill begi|
|00000470| 6e 20 74 68 65 72 65 2c | 20 65 6c 73 65 20 74 68 |n there,| else th|
|00000480| 65 0a 6e 75 6d 62 65 72 | 69 6e 67 20 77 69 6c 6c |e.number|ing will|
|00000490| 20 62 65 67 69 6e 20 61 | 74 20 74 68 65 20 68 65 | begin a|t the he|
|000004a0| 61 64 20 6f 66 20 76 6d | 2d 6d 65 73 73 61 67 65 |ad of vm|-message|
|000004b0| 2d 6c 69 73 74 2e 20 20 | 49 66 0a 53 54 41 52 54 |-list. |If.START|
|000004c0| 2d 50 4f 49 4e 54 20 69 | 73 20 6e 6f 6e 2d 6e 69 |-POINT i|s non-ni|
|000004d0| 6c 20 74 68 65 20 72 65 | 76 65 72 73 65 2d 6c 69 |l the re|verse-li|
|000004e0| 6e 6b 2d 6f 66 20 73 6c | 6f 74 20 6f 66 20 74 68 |nk-of sl|ot of th|
|000004f0| 65 20 6d 65 73 73 61 67 | 65 20 69 6e 0a 74 68 65 |e messag|e in.the|
|00000500| 20 63 6f 6e 73 20 6d 75 | 73 74 20 62 65 20 76 61 | cons mu|st be va|
|00000510| 6c 69 64 20 61 6e 64 20 | 74 68 65 20 6d 65 73 73 |lid and |the mess|
|00000520| 61 67 65 20 70 6f 69 6e | 74 65 64 20 74 6f 20 28 |age poin|ted to (|
|00000530| 69 66 20 61 6e 79 29 20 | 6d 75 73 74 0a 68 61 76 |if any) |must.hav|
|00000540| 65 20 61 20 6e 6f 6e 2d | 6e 69 6c 20 6e 75 6d 62 |e a non-|nil numb|
|00000550| 65 72 2d 6f 66 20 73 6c | 6f 74 2c 20 62 65 63 61 |er-of sl|ot, beca|
|00000560| 75 73 65 20 69 74 20 69 | 73 20 75 73 65 64 20 74 |use it i|s used t|
|00000570| 6f 20 64 65 74 65 72 6d | 69 6e 65 0a 77 68 61 74 |o determ|ine.what|
|00000580| 20 74 68 65 20 73 74 61 | 72 74 69 6e 67 20 6d 65 | the sta|rting me|
|00000590| 73 73 61 67 65 20 6e 75 | 6d 62 65 72 20 73 68 6f |ssage nu|mber sho|
|000005a0| 75 6c 64 20 62 65 2e 0a | 0a 49 66 20 6e 6f 6e 2d |uld be..|.If non-|
|000005b0| 6e 69 6c 2c 20 45 4e 44 | 2d 50 4f 49 4e 54 20 73 |nil, END|-POINT s|
|000005c0| 68 6f 75 6c 64 20 70 6f | 69 6e 74 20 74 6f 20 61 |hould po|int to a|
|000005d0| 20 63 6f 6e 73 20 63 65 | 6c 6c 20 69 6e 0a 76 6d | cons ce|ll in.vm|
|000005e0| 2d 6d 65 73 73 61 67 65 | 2d 6c 69 73 74 20 61 6e |-message|-list an|
|000005f0| 64 20 74 68 65 20 6e 75 | 6d 62 65 72 69 6e 67 20 |d the nu|mbering |
|00000600| 77 69 6c 6c 20 65 6e 64 | 20 77 69 74 68 20 74 68 |will end| with th|
|00000610| 65 20 6d 65 73 73 61 67 | 65 20 6a 75 73 74 0a 62 |e messag|e just.b|
|00000620| 65 66 6f 72 65 20 74 68 | 69 73 20 63 65 6c 6c 2e |efore th|is cell.|
|00000630| 20 20 41 20 6e 69 6c 20 | 76 61 6c 75 65 20 6d 65 | A nil |value me|
|00000640| 61 6e 73 20 6e 75 6d 62 | 65 72 69 6e 67 20 77 69 |ans numb|ering wi|
|00000650| 6c 6c 20 62 65 20 64 6f | 6e 65 20 75 6e 74 69 6c |ll be do|ne until|
|00000660| 0a 74 68 65 20 65 6e 64 | 20 6f 66 20 76 6d 2d 6d |.the end| of vm-m|
|00000670| 65 73 73 61 67 65 2d 6c | 69 73 74 20 69 73 20 72 |essage-l|ist is r|
|00000680| 65 61 63 68 65 64 2e 22 | 5d 29 0a 28 64 65 66 61 |eached."|]).(defa|
|00000690| 6c 69 61 73 20 27 76 6d | 2d 73 65 74 2d 6e 75 6d |lias 'vm|-set-num|
|000006a0| 62 65 72 69 6e 67 2d 72 | 65 64 6f 2d 73 74 61 72 |bering-r|edo-star|
|000006b0| 74 2d 70 6f 69 6e 74 20 | 23 5b 28 73 74 61 72 74 |t-point |#[(start|
|000006c0| 2d 70 6f 69 6e 74 29 20 | 22 c0 c1 20 5c 6e 5c 22 |-point) |".. \n\"|
|000006d0| 88 0b c4 61 3f ad b9 0d | 3a ab b2 0b 3a ab ae 0e |...a?...|:...:...|
|000006e0| 06 89 1e 07 ab 94 0e 07 | 0d 61 ac 8e 0e 07 0b 61 |........|.a.....a|
|000006f0| ac 88 0e 07 41 89 16 07 | ac 6c 0e 07 ac 84 c8 c9 |....A...|.l......|
|00000700| 21 88 0e 07 0d 61 ad 83 | 0d 89 13 29 87 0d 89 13 |!....a..|...)....|
|00000710| 87 22 20 5b 69 6e 74 65 | 72 6e 20 62 75 66 66 65 |." [inte|rn buffe|
|00000720| 72 2d 6e 61 6d 65 20 76 | 6d 2d 62 75 66 66 65 72 |r-name v|m-buffer|
|00000730| 73 2d 6e 65 65 64 69 6e | 67 2d 64 69 73 70 6c 61 |s-needin|g-displa|
|00000740| 79 2d 75 70 64 61 74 65 | 20 76 6d 2d 6e 75 6d 62 |y-update| vm-numb|
|00000750| 65 72 69 6e 67 2d 72 65 | 64 6f 2d 73 74 61 72 74 |ering-re|do-start|
|00000760| 2d 70 6f 69 6e 74 20 74 | 20 73 74 61 72 74 2d 70 |-point t| start-p|
|00000770| 6f 69 6e 74 20 76 6d 2d | 6d 65 73 73 61 67 65 2d |oint vm-|message-|
|00000780| 6c 69 73 74 20 6d 70 20 | 65 72 72 6f 72 20 22 53 |list mp |error "S|
|00000790| 6f 6d 65 74 68 69 6e 67 | 20 69 73 20 77 72 6f 6e |omething| is wron|
|000007a0| 67 20 69 6e 20 76 6d 2d | 73 65 74 2d 6e 75 6d 62 |g in vm-|set-numb|
|000007b0| 65 72 69 6e 67 2d 72 65 | 64 6f 2d 73 74 61 72 74 |ering-re|do-start|
|000007c0| 2d 70 6f 69 6e 74 22 5d | 20 34 20 22 5c 0a 53 65 |-point"]| 4 "\.Se|
|000007d0| 74 20 76 6d 2d 6e 75 6d | 62 65 72 69 6e 67 2d 72 |t vm-num|bering-r|
|000007e0| 65 64 6f 2d 73 74 61 72 | 74 2d 70 6f 69 6e 74 20 |edo-star|t-point |
|000007f0| 74 6f 20 53 54 41 52 54 | 2d 50 4f 49 4e 54 20 69 |to START|-POINT i|
|00000800| 66 20 61 70 70 72 6f 70 | 72 69 61 74 65 2e 0a 41 |f approp|riate..A|
|00000810| 6c 73 6f 20 6d 61 72 6b | 20 74 68 65 20 63 75 72 |lso mark| the cur|
|00000820| 72 65 6e 74 20 62 75 66 | 66 65 72 20 61 73 20 6e |rent buf|fer as n|
|00000830| 65 65 64 69 6e 67 20 61 | 20 64 69 73 70 6c 61 79 |eeding a| display|
|00000840| 20 75 70 64 61 74 65 2e | 0a 0a 53 54 41 52 54 2d | update.|..START-|
|00000850| 50 4f 49 4e 54 20 73 68 | 6f 75 6c 64 20 62 65 20 |POINT sh|ould be |
|00000860| 61 20 63 6f 6e 73 20 69 | 6e 20 76 6d 2d 6d 65 73 |a cons i|n vm-mes|
|00000870| 73 61 67 65 2d 6c 69 73 | 74 20 6f 72 20 6a 75 73 |sage-lis|t or jus|
|00000880| 74 20 74 2e 0a 20 28 74 | 20 6d 65 61 6e 73 20 73 |t t.. (t| means s|
|00000890| 74 61 72 74 20 66 72 6f | 6d 20 74 68 65 20 62 65 |tart fro|m the be|
|000008a0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 76 6d 2d 6d 65 |ginning |of vm-me|
|000008b0| 73 73 61 67 65 2d 6c 69 | 73 74 2e 29 0a 49 66 20 |ssage-li|st.).If |
|000008c0| 53 54 41 52 54 2d 50 4f | 49 4e 54 20 69 73 20 63 |START-PO|INT is c|
|000008d0| 6c 6f 73 65 72 20 74 6f | 20 74 68 65 20 68 65 61 |loser to| the hea|
|000008e0| 64 20 6f 66 20 76 6d 2d | 6d 65 73 73 61 67 65 2d |d of vm-|message-|
|000008f0| 6c 69 73 74 20 74 68 61 | 6e 0a 76 6d 2d 6e 75 6d |list tha|n.vm-num|
|00000900| 62 65 72 69 6e 67 2d 72 | 65 64 6f 2d 73 74 61 72 |bering-r|edo-star|
|00000910| 74 2d 70 6f 69 6e 74 20 | 6f 72 20 69 73 20 65 71 |t-point |or is eq|
|00000920| 75 61 6c 20 74 6f 20 74 | 2c 20 74 68 65 6e 0a 76 |ual to t|, then.v|
|00000930| 6d 2d 6e 75 6d 62 65 72 | 69 6e 67 2d 72 65 64 6f |m-number|ing-redo|
|00000940| 2d 73 74 61 72 74 2d 70 | 6f 69 6e 74 20 69 73 20 |-start-p|oint is |
|00000950| 73 65 74 20 74 6f 20 6d | 61 74 63 68 20 69 74 2e |set to m|atch it.|
|00000960| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |"]).(def|alias 'v|
|00000970| 6d 2d 73 65 74 2d 6e 75 | 6d 62 65 72 69 6e 67 2d |m-set-nu|mbering-|
|00000980| 72 65 64 6f 2d 65 6e 64 | 2d 70 6f 69 6e 74 20 23 |redo-end|-point #|
|00000990| 5b 28 65 6e 64 2d 70 6f | 69 6e 74 29 20 22 c0 c1 |[(end-po|int) "..|
|000009a0| 20 5c 6e 5c 22 88 0b c4 | 61 ab 84 c4 89 15 87 0b | \n\"...|a.......|
|000009b0| 3a ab 97 c6 0b 40 c7 48 | c8 48 21 c6 0d 40 c7 48 |:....@.H|.H!..@.H|
|000009c0| c8 48 21 56 ab 84 0b 89 | 15 87 0b 3f ad 83 0b 89 |.H!V....|...?....|
|000009d0| 15 87 22 20 5b 69 6e 74 | 65 72 6e 20 62 75 66 66 |.." [int|ern buff|
|000009e0| 65 72 2d 6e 61 6d 65 20 | 76 6d 2d 62 75 66 66 65 |er-name |vm-buffe|
|000009f0| 72 73 2d 6e 65 65 64 69 | 6e 67 2d 64 69 73 70 6c |rs-needi|ng-displ|
|00000a00| 61 79 2d 75 70 64 61 74 | 65 20 65 6e 64 2d 70 6f |ay-updat|e end-po|
|00000a10| 69 6e 74 20 74 20 76 6d | 2d 6e 75 6d 62 65 72 69 |int t vm|-numberi|
|00000a20| 6e 67 2d 72 65 64 6f 2d | 65 6e 64 2d 70 6f 69 6e |ng-redo-|end-poin|
|00000a30| 74 20 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 20 |t string|-to-int |
|00000a40| 31 20 30 5d 20 34 20 22 | 5c 0a 53 65 74 20 76 6d |1 0] 4 "|\.Set vm|
|00000a50| 2d 6e 75 6d 62 65 72 69 | 6e 67 2d 72 65 64 6f 2d |-numberi|ng-redo-|
|00000a60| 65 6e 64 2d 70 6f 69 6e | 74 20 74 6f 20 45 4e 44 |end-poin|t to END|
|00000a70| 2d 50 4f 49 4e 54 20 69 | 66 20 61 70 70 72 6f 70 |-POINT i|f approp|
|00000a80| 72 69 61 74 65 2e 0a 41 | 6c 73 6f 20 6d 61 72 6b |riate..A|lso mark|
|00000a90| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|00000aa0| 66 65 72 20 61 73 20 6e | 65 65 64 69 6e 67 20 61 |fer as n|eeding a|
|00000ab0| 20 64 69 73 70 6c 61 79 | 20 75 70 64 61 74 65 2e | display| update.|
|00000ac0| 0a 0a 45 4e 44 2d 50 4f | 49 4e 54 20 73 68 6f 75 |..END-PO|INT shou|
|00000ad0| 6c 64 20 62 65 20 61 20 | 63 6f 6e 73 20 69 6e 20 |ld be a |cons in |
|00000ae0| 76 6d 2d 6d 65 73 73 61 | 67 65 2d 6c 69 73 74 20 |vm-messa|ge-list |
|00000af0| 6f 72 20 6a 75 73 74 20 | 74 2e 0a 20 28 74 20 6d |or just |t.. (t m|
|00000b00| 65 61 6e 73 20 6e 75 6d | 62 65 72 20 61 6c 6c 20 |eans num|ber all |
|00000b10| 74 68 65 20 77 61 79 20 | 74 6f 20 74 68 65 20 65 |the way |to the e|
|00000b20| 6e 64 20 6f 66 20 76 6d | 2d 6d 65 73 73 61 67 65 |nd of vm|-message|
|00000b30| 2d 6c 69 73 74 2e 29 0a | 49 66 20 45 4e 44 2d 50 |-list.).|If END-P|
|00000b40| 4f 49 4e 54 20 69 73 20 | 63 6c 6f 73 65 72 20 74 |OINT is |closer t|
|00000b50| 6f 20 74 68 65 20 65 6e | 64 20 6f 66 20 76 6d 2d |o the en|d of vm-|
|00000b60| 6d 65 73 73 61 67 65 2d | 6c 69 73 74 20 6f 72 20 |message-|list or |
|00000b70| 69 73 20 65 71 75 61 6c | 0a 74 6f 20 74 2c 20 74 |is equal|.to t, t|
|00000b80| 68 65 6e 20 76 6d 2d 6e | 75 6d 62 65 72 69 6e 67 |hen vm-n|umbering|
|00000b90| 2d 72 65 64 6f 2d 73 74 | 61 72 74 2d 70 6f 69 6e |-redo-st|art-poin|
|00000ba0| 74 20 69 73 20 73 65 74 | 20 74 6f 20 6d 61 74 63 |t is set| to matc|
|00000bb0| 68 20 69 74 2e 0a 54 68 | 65 20 6e 75 6d 62 65 72 |h it..Th|e number|
|00000bc0| 2d 6f 66 20 73 6c 6f 74 | 20 69 73 20 75 73 65 64 |-of slot| is used|
|00000bd0| 20 74 6f 20 64 65 74 65 | 72 6d 69 6e 65 20 70 72 | to dete|rmine pr|
|00000be0| 6f 78 69 6d 69 74 79 20 | 74 6f 20 74 68 65 20 65 |oximity |to the e|
|00000bf0| 6e 64 20 6f 66 0a 76 6d | 2d 6d 65 73 73 61 67 65 |nd of.vm|-message|
|00000c00| 2d 6c 69 73 74 2c 20 73 | 6f 20 74 68 69 73 20 73 |-list, s|o this s|
|00000c10| 6c 6f 74 20 6d 75 73 74 | 20 62 65 20 76 61 6c 69 |lot must| be vali|
|00000c20| 64 20 69 6e 20 45 4e 44 | 2d 50 4f 49 4e 54 27 73 |d in END|-POINT's|
|00000c30| 20 6d 65 73 73 61 67 65 | 0a 61 6e 64 20 74 68 65 | message|.and the|
|00000c40| 20 6d 65 73 73 61 67 65 | 20 69 6e 20 74 68 65 20 | message| in the |
|00000c50| 63 6f 6e 73 20 70 6f 69 | 6e 74 65 64 20 74 6f 20 |cons poi|nted to |
|00000c60| 62 79 20 76 6d 2d 6e 75 | 6d 62 65 72 69 6e 67 2d |by vm-nu|mbering-|
|00000c70| 72 65 64 6f 2d 65 6e 64 | 2d 70 6f 69 6e 74 2e 22 |redo-end|-point."|
|00000c80| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 6d |]).(defa|lias 'vm|
|00000c90| 2d 64 6f 2d 6e 65 65 64 | 65 64 2d 72 65 6e 75 6d |-do-need|ed-renum|
|00000ca0| 62 65 72 69 6e 67 20 23 | 5b 6e 69 6c 20 22 08 ad |bering #|[nil "..|
|00000cb0| 8e c1 08 3a ad 81 08 5c | 6e 5c 22 88 c3 10 c3 89 |...:...\|n\".....|
|00000cc0| 12 87 22 20 5b 76 6d 2d | 6e 75 6d 62 65 72 69 6e |.." [vm-|numberin|
|00000cd0| 67 2d 72 65 64 6f 2d 73 | 74 61 72 74 2d 70 6f 69 |g-redo-s|tart-poi|
|00000ce0| 6e 74 20 76 6d 2d 6e 75 | 6d 62 65 72 2d 6d 65 73 |nt vm-nu|mber-mes|
|00000cf0| 73 61 67 65 73 20 76 6d | 2d 6e 75 6d 62 65 72 69 |sages vm|-numberi|
|00000d00| 6e 67 2d 72 65 64 6f 2d | 65 6e 64 2d 70 6f 69 6e |ng-redo-|end-poin|
|00000d10| 74 20 6e 69 6c 5d 20 33 | 20 22 5c 0a 4e 75 6d 62 |t nil] 3| "\.Numb|
|00000d20| 65 72 20 6d 65 73 73 61 | 67 65 73 20 69 6e 20 76 |er messa|ges in v|
|00000d30| 6d 2d 6d 65 73 73 61 67 | 65 2d 6c 69 73 74 20 61 |m-messag|e-list a|
|00000d40| 73 20 73 70 65 63 69 66 | 69 65 64 20 62 79 0a 76 |s specif|ied by.v|
|00000d50| 6d 2d 6e 75 6d 62 65 72 | 69 6e 67 2d 72 65 64 6f |m-number|ing-redo|
|00000d60| 2d 73 74 61 72 74 2d 70 | 6f 69 6e 74 20 61 6e 64 |-start-p|oint and|
|00000d70| 20 76 6d 2d 6e 75 6d 62 | 65 72 69 6e 67 2d 72 65 | vm-numb|ering-re|
|00000d80| 64 6f 2d 65 6e 64 2d 70 | 6f 69 6e 74 2e 0a 0a 76 |do-end-p|oint...v|
|00000d90| 6d 2d 6e 75 6d 62 65 72 | 69 6e 67 2d 72 65 64 6f |m-number|ing-redo|
|00000da0| 2d 73 74 61 72 74 2d 70 | 6f 69 6e 74 20 3d 20 74 |-start-p|oint = t|
|00000db0| 20 6d 65 61 6e 73 20 73 | 74 61 72 74 20 61 74 20 | means s|tart at |
|00000dc0| 74 68 65 20 68 65 61 64 | 0a 6f 66 20 76 6d 2d 6d |the head|.of vm-m|
|00000dd0| 65 73 73 61 67 65 2d 6c | 69 73 74 2e 0a 76 6d 2d |essage-l|ist..vm-|
|00000de0| 6e 75 6d 62 65 72 69 6e | 67 2d 72 65 64 6f 2d 65 |numberin|g-redo-e|
|00000df0| 6e 64 2d 70 6f 69 6e 74 | 20 3d 20 74 20 6d 65 61 |nd-point| = t mea|
|00000e00| 6e 73 20 6e 75 6d 62 65 | 72 20 61 6c 6c 20 74 68 |ns numbe|r all th|
|00000e10| 65 20 77 61 79 20 74 6f | 20 74 68 65 0a 65 6e 64 |e way to| the.end|
|00000e20| 20 6f 66 20 76 6d 2d 6d | 65 73 73 61 67 65 2d 6c | of vm-m|essage-l|
|00000e30| 69 73 74 2e 0a 0a 4f 74 | 68 65 72 77 69 73 65 20 |ist...Ot|herwise |
|00000e40| 74 68 65 20 76 61 72 69 | 61 62 6c 65 73 27 20 76 |the vari|ables' v|
|00000e50| 61 6c 75 65 73 20 73 68 | 6f 75 6c 64 20 62 65 20 |alues sh|ould be |
|00000e60| 63 6f 6e 73 65 73 20 69 | 6e 20 76 6d 2d 6d 65 73 |conses i|n vm-mes|
|00000e70| 73 61 67 65 2d 6c 69 73 | 74 0a 6f 72 20 6e 69 6c |sage-lis|t.or nil|
|00000e80| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00000e90| 76 6d 2d 73 65 74 2d 73 | 75 6d 6d 61 72 79 2d 72 |vm-set-s|ummary-r|
|00000ea0| 65 64 6f 2d 73 74 61 72 | 74 2d 70 6f 69 6e 74 20 |edo-star|t-point |
|00000eb0| 23 5b 28 73 74 61 72 74 | 2d 70 6f 69 6e 74 29 20 |#[(start|-point) |
|00000ec0| 22 c0 c1 20 5c 6e 5c 22 | 88 0b c4 61 3f ad b9 0d |".. \n\"|...a?...|
|00000ed0| 3a ab b2 0b 3a ab ae 0e | 06 89 1e 07 ab 94 0e 07 |:...:...|........|
|00000ee0| 0d 61 ac 8e 0e 07 0b 61 | ac 88 0e 07 41 89 16 07 |.a.....a|....A...|
|00000ef0| ac 6c 0e 07 ac 84 c8 c9 | 21 88 0e 07 0d 61 ad 83 |.l......|!....a..|
|00000f00| 0d 89 13 29 87 0d 89 13 | 87 22 20 5b 69 6e 74 65 |...)....|." [inte|
|00000f10| 72 6e 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 76 |rn buffe|r-name v|
|00000f20| 6d 2d 62 75 66 66 65 72 | 73 2d 6e 65 65 64 69 6e |m-buffer|s-needin|
|00000f30| 67 2d 64 69 73 70 6c 61 | 79 2d 75 70 64 61 74 65 |g-displa|y-update|
|00000f40| 20 76 6d 2d 73 75 6d 6d | 61 72 79 2d 72 65 64 6f | vm-summ|ary-redo|
|00000f50| 2d 73 74 61 72 74 2d 70 | 6f 69 6e 74 20 74 20 73 |-start-p|oint t s|
|00000f60| 74 61 72 74 2d 70 6f 69 | 6e 74 20 76 6d 2d 6d 65 |tart-poi|nt vm-me|
|00000f70| 73 73 61 67 65 2d 6c 69 | 73 74 20 6d 70 20 65 72 |ssage-li|st mp er|
|00000f80| 72 6f 72 20 22 53 6f 6d | 65 74 68 69 6e 67 20 69 |ror "Som|ething i|
|00000f90| 73 20 77 72 6f 6e 67 20 | 69 6e 20 76 6d 2d 73 65 |s wrong |in vm-se|
|00000fa0| 74 2d 73 75 6d 6d 61 72 | 79 2d 72 65 64 6f 2d 73 |t-summar|y-redo-s|
|00000fb0| 74 61 72 74 2d 70 6f 69 | 6e 74 22 5d 20 34 20 22 |tart-poi|nt"] 4 "|
|00000fc0| 5c 0a 53 65 74 20 76 6d | 2d 73 75 6d 6d 61 72 79 |\.Set vm|-summary|
|00000fd0| 2d 72 65 64 6f 2d 73 74 | 61 72 74 2d 70 6f 69 6e |-redo-st|art-poin|
|00000fe0| 74 20 74 6f 20 53 54 41 | 52 54 2d 50 4f 49 4e 54 |t to STA|RT-POINT|
|00000ff0| 20 69 66 20 61 70 70 72 | 6f 70 72 69 61 74 65 2e | if appr|opriate.|
|00001000| 0a 41 6c 73 6f 20 6d 61 | 72 6b 20 74 68 65 20 63 |.Also ma|rk the c|
|00001010| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 61 73 |urrent b|uffer as|
|00001020| 20 6e 65 65 64 69 6e 67 | 20 61 20 64 69 73 70 6c | needing| a displ|
|00001030| 61 79 20 75 70 64 61 74 | 65 2e 0a 0a 53 54 41 52 |ay updat|e...STAR|
|00001040| 54 2d 50 4f 49 4e 54 20 | 73 68 6f 75 6c 64 20 62 |T-POINT |should b|
|00001050| 65 20 61 20 63 6f 6e 73 | 20 69 6e 20 76 6d 2d 6d |e a cons| in vm-m|
|00001060| 65 73 73 61 67 65 2d 6c | 69 73 74 20 6f 72 20 6a |essage-l|ist or j|
|00001070| 75 73 74 20 74 2e 0a 20 | 28 74 20 6d 65 61 6e 73 |ust t.. |(t means|
|00001080| 20 73 74 61 72 74 20 66 | 72 6f 6d 20 74 68 65 20 | start f|rom the |
|00001090| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 76 6d 2d |beginnin|g of vm-|
|000010a0| 6d 65 73 73 61 67 65 2d | 6c 69 73 74 2e 29 0a 49 |message-|list.).I|
|000010b0| 66 20 53 54 41 52 54 2d | 50 4f 49 4e 54 20 69 73 |f START-|POINT is|
|000010c0| 20 63 6c 6f 73 65 72 20 | 74 6f 20 74 68 65 20 68 | closer |to the h|
|000010d0| 65 61 64 20 6f 66 20 76 | 6d 2d 6d 65 73 73 61 67 |ead of v|m-messag|
|000010e0| 65 2d 6c 69 73 74 20 74 | 68 61 6e 0a 76 6d 2d 73 |e-list t|han.vm-s|
|000010f0| 75 6d 6d 61 72 79 2d 72 | 65 64 6f 2d 73 74 61 72 |ummary-r|edo-star|
|00001100| 74 2d 70 6f 69 6e 74 20 | 6f 72 20 69 73 20 65 71 |t-point |or is eq|
|00001110| 75 61 6c 20 74 6f 20 74 | 2c 20 74 68 65 6e 0a 76 |ual to t|, then.v|
|00001120| 6d 2d 73 75 6d 6d 61 72 | 79 2d 72 65 64 6f 2d 73 |m-summar|y-redo-s|
|00001130| 74 61 72 74 2d 70 6f 69 | 6e 74 20 69 73 20 73 65 |tart-poi|nt is se|
|00001140| 74 20 74 6f 20 6d 61 74 | 63 68 20 69 74 2e 22 5d |t to mat|ch it."]|
|00001150| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 6d 2d |).(defal|ias 'vm-|
|00001160| 6d 61 72 6b 2d 66 6f 72 | 2d 73 75 6d 6d 61 72 79 |mark-for|-summary|
|00001170| 2d 75 70 64 61 74 65 20 | 23 5b 28 6d 20 26 6f 70 |-update |#[(m &op|
|00001180| 74 69 6f 6e 61 6c 20 64 | 6f 6e 74 2d 6b 69 6c 6c |tional d|ont-kill|
|00001190| 2d 63 61 63 68 65 29 20 | 22 08 89 c1 48 c2 48 4a |-cache) |"...H.HJ|
|000011a0| 61 ab e3 0b ac 87 08 c4 | 48 c5 c6 49 88 08 c1 48 |a.......|H..I...H|
|000011b0| c4 48 ab 86 08 0e 07 42 | 16 07 c8 c9 08 c1 48 ca |.H.....B|......H.|
|000011c0| 48 21 0e 0b 5c 22 88 08 | cc 48 c1 48 4a 89 1e 0d |H!..\"..|.H.HJ...|
|000011d0| ad b3 08 ce 48 0e 0d 40 | ce 48 61 ab 9f 0e 0d 40 |....H..@|.Ha....@|
|000011e0| c1 48 c4 48 ab 88 0e 0d | 40 0e 07 42 16 07 c8 c9 |.H.H....|@..B....|
|000011f0| 0e 0d 40 c1 48 ca 48 21 | 0e 0b 5c 22 88 0e 0d 41 |..@.H.H!|..\"...A|
|00001200| 89 16 0d ac 4e c6 29 87 | 08 cc 48 c1 48 4a ab f0 |....N.).|..H.HJ..|
|00001210| 08 cc 48 c1 48 4a 89 1e | 0d ab b2 08 ce 48 0e 0d |..H.HJ..|.....H..|
|00001220| 40 ce 48 61 ab 9f 0e 0d | 40 c1 48 c4 48 ab 88 0e |@.Ha....|@.H.H...|
|00001230| 0d 40 0e 07 42 16 07 c8 | c9 0e 0d 40 c1 48 ca 48 |.@..B...|...@.H.H|
|00001240| 21 0e 0b 5c 22 88 0e 0d | 41 89 16 0d ac 4e 0b ac |!..\"...|A....N..|
|00001250| 87 08 c4 48 c5 c6 49 88 | 08 c1 48 c2 48 4a c1 48 |...H..I.|..H.HJ.H|
|00001260| c4 48 ab 8b 08 c1 48 c2 | 48 4a 0e 07 42 16 07 c8 |.H....H.|HJ..B...|
|00001270| c9 08 c1 48 c2 48 4a c1 | 48 ca 48 21 0e 0b 5c 22 |...H.HJ.|H.H!..\"|
|00001280| 29 87 0b ac 87 08 c1 48 | cf c6 49 88 08 c1 48 c4 |)......H|..I...H.|
|00001290| 48 ab 86 08 0e 07 42 16 | 07 c8 c9 08 c1 48 ca 48 |H.....B.|.....H.H|
|000012a0| 21 0e 0b 5c 22 87 22 20 | 5b 6d 20 31 20 35 20 64 |!..\"." |[m 1 5 d|
|000012b0| 6f 6e 74 2d 6b 69 6c 6c | 2d 63 61 63 68 65 20 33 |ont-kill|-cache 3|
|000012c0| 20 31 38 20 6e 69 6c 20 | 76 6d 2d 6d 65 73 73 61 | 18 nil |vm-messa|
|000012d0| 67 65 73 2d 6e 65 65 64 | 69 6e 67 2d 73 75 6d 6d |ges-need|ing-summ|
|000012e0| 61 72 79 2d 75 70 64 61 | 74 65 20 69 6e 74 65 72 |ary-upda|te inter|
|000012f0| 6e 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 39 20 |n buffer|-name 9 |
|00001300| 76 6d 2d 62 75 66 66 65 | 72 73 2d 6e 65 65 64 69 |vm-buffe|rs-needi|
|00001310| 6e 67 2d 64 69 73 70 6c | 61 79 2d 75 70 64 61 74 |ng-displ|ay-updat|
|00001320| 65 20 34 20 6d 2d 6c 69 | 73 74 20 32 20 31 35 5d |e 4 m-li|st 2 15]|
|00001330| 20 35 20 22 5c 0a 4d 61 | 72 6b 20 6d 65 73 73 61 | 5 "\.Ma|rk messa|
|00001340| 67 65 20 4d 20 66 6f 72 | 20 61 20 73 75 6d 6d 61 |ge M for| a summa|
|00001350| 72 79 20 75 70 64 61 74 | 65 2e 0a 41 6c 73 6f 20 |ry updat|e..Also |
|00001360| 6d 61 72 6b 20 4d 27 73 | 20 62 75 66 66 65 72 20 |mark M's| buffer |
|00001370| 61 73 20 6e 65 65 64 69 | 6e 67 20 61 20 64 69 73 |as needi|ng a dis|
|00001380| 70 6c 61 79 20 75 70 64 | 61 74 65 2e 20 41 6e 79 |play upd|ate. Any|
|00001390| 20 76 69 72 74 75 61 6c | 0a 6d 65 73 73 61 67 65 | virtual|.message|
|000013a0| 73 20 6f 66 20 4d 20 61 | 6e 64 20 74 68 65 69 72 |s of M a|nd their|
|000013b0| 20 62 75 66 66 65 72 73 | 20 61 72 65 20 73 69 6d | buffers| are sim|
|000013c0| 69 6c 61 72 6c 79 20 6d | 61 72 6b 65 64 20 66 6f |ilarly m|arked fo|
|000013d0| 72 20 75 70 64 61 74 65 | 2e 0a 49 66 20 4d 20 69 |r update|..If M i|
|000013e0| 73 20 61 20 76 69 72 74 | 75 61 6c 20 6d 65 73 73 |s a virt|ual mess|
|000013f0| 61 67 65 20 61 6e 64 20 | 76 69 72 74 75 61 6c 20 |age and |virtual |
|00001400| 6d 69 72 72 6f 72 69 6e | 67 20 69 73 20 69 6e 20 |mirrorin|g is in |
|00001410| 65 66 66 65 63 74 20 66 | 6f 72 0a 4d 20 28 69 2e |effect f|or.M (i.|
|00001420| 65 2e 20 61 74 74 72 69 | 62 75 74 65 2d 6f 66 20 |e. attri|bute-of |
|00001430| 65 71 20 61 74 74 72 69 | 62 75 74 65 73 2d 6f 66 |eq attri|butes-of|
|00001440| 20 4d 27 73 20 72 65 61 | 6c 20 6d 65 73 73 61 67 | M's rea|l messag|
|00001450| 65 29 2c 20 4d 27 73 20 | 72 65 61 6c 0a 6d 65 73 |e), M's |real.mes|
|00001460| 73 61 67 65 20 61 6e 64 | 20 69 74 73 20 62 75 66 |sage and| its buf|
|00001470| 66 65 72 20 61 72 65 20 | 73 63 68 65 64 75 6c 65 |fer are |schedule|
|00001480| 64 20 66 6f 72 20 61 6e | 20 75 70 64 61 74 65 2e |d for an| update.|
|00001490| 0a 0a 4f 70 74 69 6f 6e | 61 6c 20 61 72 67 20 44 |..Option|al arg D|
|000014a0| 4f 4e 54 2d 4b 49 4c 4c | 2d 43 41 43 48 45 20 6e |ONT-KILL|-CACHE n|
|000014b0| 6f 6e 2d 6e 69 6c 20 6d | 65 61 6e 73 20 64 6f 6e |on-nil m|eans don|
|000014c0| 27 74 20 69 6e 76 61 6c | 69 64 61 74 65 20 74 68 |'t inval|idate th|
|000014d0| 65 0a 73 75 6d 6d 61 72 | 79 2d 6f 66 20 73 6c 6f |e.summar|y-of slo|
|000014e0| 74 20 66 6f 72 20 61 6e | 79 20 6d 65 73 73 61 67 |t for an|y messag|
|000014f0| 65 73 20 6d 61 72 6b 65 | 64 20 66 6f 72 20 75 70 |es marke|d for up|
|00001500| 64 61 74 65 2e 20 20 54 | 68 69 73 20 69 73 0a 6d |date. T|his is.m|
|00001510| 65 61 6e 74 20 74 6f 20 | 62 65 20 75 73 65 64 20 |eant to |be used |
|00001520| 62 79 20 66 75 6e 63 74 | 69 6f 6e 73 20 74 68 61 |by funct|ions tha|
|00001530| 74 20 75 70 64 61 74 65 | 20 6d 65 73 73 61 67 65 |t update| message|
|00001540| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 0a 74 68 61 | informa|tion.tha|
|00001550| 74 20 69 73 20 6e 6f 74 | 20 63 61 63 68 65 64 20 |t is not| cached |
|00001560| 69 6e 20 74 68 65 20 73 | 75 6d 6d 61 72 79 2d 6f |in the s|ummary-o|
|00001570| 66 20 73 6c 6f 74 2c 20 | 65 2e 67 2e 20 6d 65 73 |f slot, |e.g. mes|
|00001580| 73 61 67 65 20 6e 75 6d | 62 65 72 73 0a 61 6e 64 |sage num|bers.and|
|00001590| 20 74 68 72 65 61 64 20 | 69 6e 64 65 6e 74 61 74 | thread |indentat|
|000015a0| 69 6f 6e 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ion."]).|(defalia|
|000015b0| 73 20 27 76 6d 2d 66 6f | 72 63 65 2d 6d 6f 64 65 |s 'vm-fo|rce-mode|
|000015c0| 2d 6c 69 6e 65 2d 75 70 | 64 61 74 65 20 23 5b 6e |-line-up|date #[n|
|000015d0| 69 6c 20 22 c0 c1 21 ab | 84 c1 c2 21 87 8a c3 20 |il "..!.|...!... |
|000015e0| 71 88 c4 c5 20 21 29 87 | 22 20 5b 66 62 6f 75 6e |q... !).|" [fboun|
|000015f0| 64 70 20 66 6f 72 63 65 | 2d 6d 6f 64 65 2d 6c 69 |dp force|-mode-li|
|00001600| 6e 65 2d 75 70 64 61 74 | 65 20 74 20 6f 74 68 65 |ne-updat|e t othe|
|00001610| 72 2d 62 75 66 66 65 72 | 20 73 65 74 2d 62 75 66 |r-buffer| set-buf|
|00001620| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 62 |fer-modi|fied-p b|
|00001630| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00001640| 5d 20 32 20 22 5c 0a 46 | 6f 72 63 65 20 61 20 6d |] 2 "\.F|orce a m|
|00001650| 6f 64 65 20 6c 69 6e 65 | 20 75 70 64 61 74 65 20 |ode line| update |
|00001660| 69 6e 20 61 6c 6c 20 66 | 72 61 6d 65 73 2e 22 5d |in all f|rames."]|
|00001670| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 6d 2d |).(defal|ias 'vm-|
|00001680| 64 6f 2d 6e 65 65 64 65 | 64 2d 6d 6f 64 65 2d 6c |do-neede|d-mode-l|
|00001690| 69 6e 65 2d 75 70 64 61 | 74 65 20 23 5b 6e 69 6c |ine-upda|te #[nil|
|000016a0| 20 22 08 ac a9 09 c2 61 | ab 8c c3 c4 20 1d 1e 06 | ".....a|.... ...|
|000016b0| c7 8e c8 20 88 2b 0e 09 | 83 a9 00 c4 20 1d ca 8e |... .+..|.... ...|
|000016c0| 8a 0e 09 71 88 c3 1e 06 | c8 20 88 2c aa fd 08 40 |...q....|. .,...@|
|000016d0| cb 48 cc 48 ab 88 cd 08 | 40 21 16 0e aa 83 c3 16 |.H.H....|@!......|
|000016e0| 0e 08 40 cf 48 d0 48 16 | 11 08 40 d2 48 d0 48 16 |..@.H.H.|..@.H.H.|
|000016f0| 13 08 40 d2 48 cf 48 16 | 14 08 40 d2 48 d0 48 3f |..@.H.H.|..@.H.H?|
|00001700| ad 87 08 40 d2 48 cf 48 | 3f 16 15 08 40 d2 48 d6 |...@.H.H|?...@.H.|
|00001710| 48 16 17 08 40 d2 48 cc | 48 16 18 08 40 d2 48 d9 |H...@.H.|H...@.H.|
|00001720| 48 16 1a 08 40 d2 48 cb | 48 16 1b 08 40 d2 48 dc |H...@.H.|H...@.H.|
|00001730| 48 16 1d 08 40 d2 48 de | 48 16 1f 08 40 d2 48 d2 |H...@.H.|H...@.H.|
|00001740| 48 16 20 08 40 cf 48 d2 | 48 16 21 0e 5c 22 ab aa |H. .@.H.|H.!.\"..|
|00001750| c4 20 1e 23 8a e4 0e 5c | 22 e5 d3 d4 d5 d7 db dd |. .#...\|".......|
|00001760| d8 da e0 e1 d1 e6 e7 e8 | e9 ea eb ce ec ed 26 16 |........|......&.|
|00001770| 88 0e 5c 22 71 88 ee 0e | 23 21 88 2a 0e 09 ab a9 |..\"q...|#!.*....|
|00001780| c4 20 1e 23 8a e4 0e 09 | e5 d3 d4 d5 d7 db dd d8 |. .#....|........|
|00001790| da e0 e1 d1 e6 e7 e8 e9 | ea ce ec ed 26 15 88 0e |........|....&...|
|000017a0| 09 71 88 ee 0e 23 21 88 | 2a ef 20 87 22 20 5b 76 |.q...#!.|*. ." [v|
|000017b0| 6d 2d 6d 65 73 73 61 67 | 65 2d 70 6f 69 6e 74 65 |m-messag|e-pointe|
|000017c0| 72 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 76 6d 2d |r major-|mode vm-|
|000017d0| 76 69 72 74 75 61 6c 2d | 6d 6f 64 65 20 6e 69 6c |virtual-|mode nil|
|000017e0| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|000017f0| 2d 70 20 6f 6d 6f 64 69 | 66 69 65 64 20 62 75 66 |-p omodi|fied buf|
|00001800| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 28 28 |fer-read|-only ((|
|00001810| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00001820| 69 65 64 2d 70 20 6f 6d | 6f 64 69 66 69 65 64 29 |ied-p om|odified)|
|00001830| 29 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 76 |) erase-|buffer v|
|00001840| 6d 2d 70 72 65 73 65 6e | 74 61 74 69 6f 6e 2d 62 |m-presen|tation-b|
|00001850| 75 66 66 65 72 20 28 28 | 73 65 74 2d 62 75 66 66 |uffer ((|set-buff|
|00001860| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 6f 6d |er-modif|ied-p om|
|00001870| 6f 64 69 66 69 65 64 29 | 29 20 34 20 33 20 76 6d |odified)|) 4 3 vm|
|00001880| 2d 73 75 2d 6c 61 62 65 | 6c 73 20 76 6d 2d 6d 6c |-su-labe|ls vm-ml|
|00001890| 2d 6c 61 62 65 6c 73 20 | 31 20 30 20 76 6d 2d 6d |-labels |1 0 vm-m|
|000018a0| 6c 2d 6d 65 73 73 61 67 | 65 2d 6e 75 6d 62 65 72 |l-messag|e-number|
|000018b0| 20 32 20 76 6d 2d 6d 6c | 2d 6d 65 73 73 61 67 65 | 2 vm-ml|-message|
|000018c0| 2d 6e 65 77 20 76 6d 2d | 6d 6c 2d 6d 65 73 73 61 |-new vm-|ml-messa|
|000018d0| 67 65 2d 75 6e 72 65 61 | 64 20 76 6d 2d 6d 6c 2d |ge-unrea|d vm-ml-|
|000018e0| 6d 65 73 73 61 67 65 2d | 72 65 61 64 20 37 20 76 |message-|read 7 v|
|000018f0| 6d 2d 6d 6c 2d 6d 65 73 | 73 61 67 65 2d 65 64 69 |m-ml-mes|sage-edi|
|00001900| 74 65 64 20 76 6d 2d 6d | 6c 2d 6d 65 73 73 61 67 |ted vm-m|l-messag|
|00001910| 65 2d 66 69 6c 65 64 20 | 35 20 76 6d 2d 6d 6c 2d |e-filed |5 vm-ml-|
|00001920| 6d 65 73 73 61 67 65 2d | 77 72 69 74 74 65 6e 20 |message-|written |
|00001930| 76 6d 2d 6d 6c 2d 6d 65 | 73 73 61 67 65 2d 72 65 |vm-ml-me|ssage-re|
|00001940| 70 6c 69 65 64 20 36 20 | 76 6d 2d 6d 6c 2d 6d 65 |plied 6 |vm-ml-me|
|00001950| 73 73 61 67 65 2d 66 6f | 72 77 61 72 64 65 64 20 |ssage-fo|rwarded |
|00001960| 38 20 76 6d 2d 6d 6c 2d | 6d 65 73 73 61 67 65 2d |8 vm-ml-|message-|
|00001970| 72 65 64 69 73 74 72 69 | 62 75 74 65 64 20 76 6d |redistri|buted vm|
|00001980| 2d 6d 6c 2d 6d 65 73 73 | 61 67 65 2d 64 65 6c 65 |-ml-mess|age-dele|
|00001990| 74 65 64 20 76 6d 2d 6d | 6c 2d 6d 65 73 73 61 67 |ted vm-m|l-messag|
|000019a0| 65 2d 6d 61 72 6b 65 64 | 20 76 6d 2d 73 75 6d 6d |e-marked| vm-summ|
|000019b0| 61 72 79 2d 62 75 66 66 | 65 72 20 6d 6f 64 69 66 |ary-buff|er modif|
|000019c0| 69 65 64 20 76 6d 2d 63 | 6f 70 79 2d 6c 6f 63 61 |ied vm-c|opy-loca|
|000019d0| 6c 2d 76 61 72 69 61 62 | 6c 65 73 20 64 65 66 61 |l-variab|les defa|
|000019e0| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 20 76 6d |ult-dire|ctory vm|
|000019f0| 2d 6d 6c 2d 68 69 67 68 | 65 73 74 2d 6d 65 73 73 |-ml-high|est-mess|
|00001a00| 61 67 65 2d 6e 75 6d 62 | 65 72 20 76 6d 2d 66 6f |age-numb|er vm-fo|
|00001a10| 6c 64 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 76 |lder-rea|d-only v|
|00001a20| 6d 2d 66 6f 6c 64 65 72 | 2d 74 79 70 65 20 76 6d |m-folder|-type vm|
|00001a30| 2d 76 69 72 74 75 61 6c | 2d 66 6f 6c 64 65 72 2d |-virtual|-folder-|
|00001a40| 64 65 66 69 6e 69 74 69 | 6f 6e 20 76 6d 2d 76 69 |definiti|on vm-vi|
|00001a50| 72 74 75 61 6c 2d 6d 69 | 72 72 6f 72 20 76 6d 2d |rtual-mi|rror vm-|
|00001a60| 6d 6c 2d 73 6f 72 74 2d | 6b 65 79 73 20 76 6d 2d |ml-sort-|keys vm-|
|00001a70| 73 70 6f 6f 6c 65 64 2d | 6d 61 69 6c 2d 77 61 69 |spooled-|mail-wai|
|00001a80| 74 69 6e 67 20 76 6d 2d | 6d 65 73 73 61 67 65 2d |ting vm-|message-|
|00001a90| 6c 69 73 74 20 73 65 74 | 2d 62 75 66 66 65 72 2d |list set|-buffer-|
|00001aa0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 76 6d 2d 66 6f |modified|-p vm-fo|
|00001ab0| 72 63 65 2d 6d 6f 64 65 | 2d 6c 69 6e 65 2d 75 70 |rce-mode|-line-up|
|00001ac0| 64 61 74 65 5d 20 32 33 | 20 22 5c 0a 44 6f 20 61 |date] 23| "\.Do a|
|00001ad0| 20 6d 6f 64 65 6c 69 6e | 65 20 75 70 64 61 74 65 | modelin|e update|
|00001ae0| 20 66 6f 72 20 74 68 65 | 20 63 75 72 72 65 6e 74 | for the| current|
|00001af0| 20 66 6f 6c 64 65 72 20 | 62 75 66 66 65 72 2e 0a | folder |buffer..|
|00001b00| 54 68 69 73 20 6d 65 61 | 6e 73 20 73 65 74 74 69 |This mea|ns setti|
|00001b10| 6e 67 20 75 70 20 61 6c | 6c 20 74 68 65 20 76 61 |ng up al|l the va|
|00001b20| 72 69 6f 75 73 20 76 6d | 2d 6d 6c 20 61 74 74 72 |rious vm|-ml attr|
|00001b30| 69 62 75 74 65 20 76 61 | 72 69 61 62 6c 65 73 0a |ibute va|riables.|
|00001b40| 69 6e 20 74 68 65 20 66 | 6f 6c 64 65 72 20 62 75 |in the f|older bu|
|00001b50| 66 66 65 72 20 61 6e 64 | 20 63 6f 70 79 69 6e 67 |ffer and| copying|
|00001b60| 20 6e 65 63 65 73 73 61 | 72 79 20 76 61 72 69 61 | necessa|ry varia|
|00001b70| 62 6c 65 73 20 74 6f 20 | 74 68 65 0a 66 6f 6c 64 |bles to |the.fold|
|00001b80| 65 72 20 62 75 66 66 65 | 72 27 73 20 73 75 6d 6d |er buffe|r's summ|
|00001b90| 61 72 79 20 61 6e 64 20 | 70 72 65 73 65 6e 74 61 |ary and |presenta|
|00001ba0| 74 69 6f 6e 20 62 75 66 | 66 65 72 73 2c 20 61 6e |tion buf|fers, an|
|00001bb0| 64 20 74 68 65 6e 0a 66 | 6f 72 63 69 6e 67 20 45 |d then.f|orcing E|
|00001bc0| 6d 61 63 73 20 74 6f 20 | 75 70 64 61 74 65 20 61 |macs to |update a|
|00001bd0| 6c 6c 20 6d 6f 64 65 6c | 69 6e 65 73 2e 0a 0a 49 |ll model|ines...I|
|00001be0| 66 20 61 20 76 69 72 74 | 75 61 6c 20 66 6f 6c 64 |f a virt|ual fold|
|00001bf0| 65 72 20 62 65 69 6e 67 | 20 75 70 64 61 74 65 64 |er being| updated|
|00001c00| 20 68 61 73 20 6e 6f 20 | 6d 65 73 73 61 67 65 73 | has no |messages|
|00001c10| 2c 20 74 68 65 6e 0a 65 | 72 61 73 65 2d 62 75 66 |, then.e|rase-buf|
|00001c20| 66 65 72 20 69 73 20 63 | 61 6c 6c 65 64 20 6f 6e |fer is c|alled on|
|00001c30| 20 69 74 73 20 62 75 66 | 66 65 72 2e 0a 0a 49 66 | its buf|fer...If|
|00001c40| 20 61 6e 79 20 74 79 70 | 65 20 6f 66 20 66 6f 6c | any typ|e of fol|
|00001c50| 64 65 72 20 69 73 20 65 | 6d 70 74 79 2c 20 65 72 |der is e|mpty, er|
|00001c60| 61 73 65 2d 62 75 66 66 | 65 72 20 69 73 20 63 61 |ase-buff|er is ca|
|00001c70| 6c 6c 65 64 0a 6f 6e 20 | 69 74 73 20 70 72 65 73 |lled.on |its pres|
|00001c80| 65 6e 74 61 74 69 6f 6e | 20 62 75 66 66 65 72 2c |entation| buffer,|
|00001c90| 20 69 66 20 61 6e 79 2e | 22 5d 29 0a 28 64 65 66 | if any.|"]).(def|
|00001ca0| 61 6c 69 61 73 20 27 76 | 6d 2d 75 70 64 61 74 65 |alias 'v|m-update|
|00001cb0| 2d 73 75 6d 6d 61 72 79 | 2d 61 6e 64 2d 6d 6f 64 |-summary|-and-mod|
|00001cc0| 65 2d 6c 69 6e 65 20 23 | 5b 6e 69 6c 20 22 8a c0 |e-line #|[nil "..|
|00001cd0| c1 5c 6e 5c 22 88 c3 5c | 6e c4 5c 22 88 29 0d ab |.\n\"..\|n.\".)..|
|00001ce0| 87 c6 c7 0d 5c 22 88 c8 | 15 c9 20 87 22 20 5b 6d |....\"..|.. ." [m|
|00001cf0| 61 70 61 74 6f 6d 73 20 | 23 5b 28 62 29 20 22 c0 |apatoms |#[(b) ".|
|00001d00| c1 5c 6e 21 21 89 12 ad | 9c 5c 6e 71 88 c3 20 88 |.\n!!...|.\nq.. .|
|00001d10| 0c ab 87 c5 20 ab 83 c6 | 20 88 c7 20 88 0e 08 ab |.... ...| .. ....|
|00001d20| 83 c9 20 88 ca 20 87 22 | 20 5b 67 65 74 2d 62 75 |.. .. ."| [get-bu|
|00001d30| 66 66 65 72 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |ffer sym|bol-name|
|00001d40| 20 62 20 76 6d 2d 63 68 | 65 63 6b 2d 66 6f 72 2d | b vm-ch|eck-for-|
|00001d50| 6b 69 6c 6c 65 64 2d 73 | 75 6d 6d 61 72 79 20 76 |killed-s|ummary v|
|00001d60| 6d 2d 75 73 65 2d 74 6f | 6f 6c 62 61 72 20 76 6d |m-use-to|olbar vm|
|00001d70| 2d 74 6f 6f 6c 62 61 72 | 2d 73 75 70 70 6f 72 74 |-toolbar|-support|
|00001d80| 2d 70 6f 73 73 69 62 6c | 65 2d 70 20 76 6d 2d 74 |-possibl|e-p vm-t|
|00001d90| 6f 6f 6c 62 61 72 2d 75 | 70 64 61 74 65 2d 74 6f |oolbar-u|pdate-to|
|00001da0| 6f 6c 62 61 72 20 76 6d | 2d 64 6f 2d 6e 65 65 64 |olbar vm|-do-need|
|00001db0| 65 64 2d 72 65 6e 75 6d | 62 65 72 69 6e 67 20 76 |ed-renum|bering v|
|00001dc0| 6d 2d 73 75 6d 6d 61 72 | 79 2d 62 75 66 66 65 72 |m-summar|y-buffer|
|00001dd0| 20 76 6d 2d 64 6f 2d 6e | 65 65 64 65 64 2d 73 75 | vm-do-n|eeded-su|
|00001de0| 6d 6d 61 72 79 2d 72 65 | 62 75 69 6c 64 20 76 6d |mmary-re|build vm|
|00001df0| 2d 64 6f 2d 6e 65 65 64 | 65 64 2d 6d 6f 64 65 2d |-do-need|ed-mode-|
|00001e00| 6c 69 6e 65 2d 75 70 64 | 61 74 65 5d 20 34 5d 20 |line-upd|ate] 4] |
|00001e10| 76 6d 2d 62 75 66 66 65 | 72 73 2d 6e 65 65 64 69 |vm-buffe|rs-needi|
|00001e20| 6e 67 2d 64 69 73 70 6c | 61 79 2d 75 70 64 61 74 |ng-displ|ay-updat|
|00001e30| 65 20 66 69 6c 6c 61 72 | 72 61 79 20 30 20 76 6d |e fillar|ray 0 vm|
|00001e40| 2d 6d 65 73 73 61 67 65 | 73 2d 6e 65 65 64 69 6e |-message|s-needin|
|00001e50| 67 2d 73 75 6d 6d 61 72 | 79 2d 75 70 64 61 74 65 |g-summar|y-update|
|00001e60| 20 6d 61 70 63 61 72 20 | 76 6d 2d 75 70 64 61 74 | mapcar |vm-updat|
|00001e70| 65 2d 6d 65 73 73 61 67 | 65 2d 73 75 6d 6d 61 72 |e-messag|e-summar|
|00001e80| 79 20 6e 69 6c 20 76 6d | 2d 66 6f 72 63 65 2d 6d |y nil vm|-force-m|
|00001e90| 6f 64 65 2d 6c 69 6e 65 | 2d 75 70 64 61 74 65 5d |ode-line|-update]|
|00001ea0| 20 33 20 22 5c 0a 55 70 | 64 61 74 65 20 73 75 6d | 3 "\.Up|date sum|
|00001eb0| 6d 61 72 79 20 61 6e 64 | 20 6d 6f 64 65 20 6c 69 |mary and| mode li|
|00001ec0| 6e 65 20 66 6f 72 20 61 | 6c 6c 20 56 4d 20 66 6f |ne for a|ll VM fo|
|00001ed0| 6c 64 65 72 20 61 6e 64 | 20 73 75 6d 6d 61 72 79 |lder and| summary|
|00001ee0| 20 62 75 66 66 65 72 73 | 2e 0a 52 65 61 6c 6c 79 | buffers|..Really|
|00001ef0| 20 74 68 69 73 20 75 70 | 64 61 74 65 73 20 61 6c | this up|dates al|
|00001f00| 6c 20 74 68 65 20 76 69 | 73 69 62 6c 65 20 73 74 |l the vi|sible st|
|00001f10| 61 74 75 73 20 69 6e 64 | 69 63 61 74 6f 72 73 2e |atus ind|icators.|
|00001f20| 0a 0a 4d 65 73 73 61 67 | 65 20 6c 69 73 74 73 20 |..Messag|e lists |
|00001f30| 61 72 65 20 72 65 6e 75 | 6d 62 65 72 65 64 2e 0a |are renu|mbered..|
|00001f40| 53 75 6d 6d 61 72 79 20 | 65 6e 74 72 69 65 73 20 |Summary |entries |
|00001f50| 61 72 65 20 77 69 70 65 | 64 20 61 6e 64 20 72 65 |are wipe|d and re|
|00001f60| 67 65 6e 65 72 61 74 65 | 64 2e 0a 4d 6f 64 65 20 |generate|d..Mode |
|00001f70| 6c 69 6e 65 73 20 61 72 | 65 20 75 70 64 61 74 65 |lines ar|e update|
|00001f80| 64 2e 0a 54 6f 6f 6c 62 | 61 72 73 20 61 72 65 20 |d..Toolb|ars are |
|00001f90| 75 70 64 61 74 65 64 2e | 22 5d 29 0a 28 64 65 66 |updated.|"]).(def|
|00001fa0| 61 6c 69 61 73 20 27 76 | 6d 2d 72 65 76 65 72 73 |alias 'v|m-revers|
|00001fb0| 65 2d 6c 69 6e 6b 2d 6d | 65 73 73 61 67 65 73 20 |e-link-m|essages |
|00001fc0| 23 5b 6e 69 6c 20 22 08 | c1 1a 89 1b ad 92 0b 40 |#[nil ".|.......@|
|00001fd0| c4 48 c5 48 5c 6e 4c 88 | 0b 12 0b 41 89 13 ac 6f |.H.H\nL.|...A...o|
|00001fe0| c1 2a 87 22 20 5b 76 6d | 2d 6d 65 73 73 61 67 65 |.*." [vm|-message|
|00001ff0| 2d 6c 69 73 74 20 6e 69 | 6c 20 70 72 65 76 20 6d |-list ni|l prev m|
|00002000| 70 20 31 20 36 5d 20 33 | 20 22 5c 0a 53 65 74 20 |p 1 6] 3| "\.Set |
|00002010| 72 65 76 65 72 73 65 20 | 6c 69 6e 6b 73 20 66 6f |reverse |links fo|
|00002020| 72 20 61 6c 6c 20 6d 65 | 73 73 61 67 65 73 20 69 |r all me|ssages i|
|00002030| 6e 20 76 6d 2d 6d 65 73 | 73 61 67 65 2d 6c 69 73 |n vm-mes|sage-lis|
|00002040| 74 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t."]).(d|efalias |
|00002050| 27 76 6d 2d 6d 61 74 63 | 68 2d 6f 72 64 65 72 65 |'vm-matc|h-ordere|
|00002060| 64 2d 68 65 61 64 65 72 | 20 23 5b 28 61 6c 69 73 |d-header| #[(alis|
|00002070| 74 29 20 22 c0 19 c2 c3 | 8d 29 87 22 20 5b 74 20 |t) "....|.)." [t |
|00002080| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00002090| 20 6d 61 74 63 68 20 28 | 62 79 74 65 2d 63 6f 64 | match (|byte-cod|
|000020a0| 65 20 22 08 ab 93 c1 08 | 40 40 21 ab 86 c2 c3 08 |e ".....|@@!.....|
|000020b0| 40 5c 22 88 08 41 89 10 | ac 6d c4 87 22 20 5b 61 |@\"..A..|.m.." [a|
|000020c0| 6c 69 73 74 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |list loo|king-at |
|000020d0| 74 68 72 6f 77 20 6d 61 | 74 63 68 20 6e 69 6c 5d |throw ma|tch nil]|
|000020e0| 20 34 29 5d 20 32 20 22 | 5c 0a 54 72 79 20 74 6f | 4)] 2 "|\.Try to|
|000020f0| 20 6d 61 74 63 68 20 61 | 20 68 65 61 64 65 72 20 | match a| header |
|00002100| 69 6e 20 41 4c 49 53 54 | 20 61 6e 64 20 72 65 74 |in ALIST| and ret|
|00002110| 75 72 6e 20 74 68 65 20 | 6d 61 74 63 68 69 6e 67 |urn the |matching|
|00002120| 20 63 65 6c 6c 2e 0a 54 | 68 69 73 20 69 73 20 75 | cell..T|his is u|
|00002130| 73 65 64 20 62 79 20 68 | 65 61 64 65 72 20 6f 72 |sed by h|eader or|
|00002140| 64 65 72 69 6e 67 20 63 | 6f 64 65 2e 0a 0a 41 4c |dering c|ode...AL|
|00002150| 49 53 54 20 6c 6f 6f 6b | 73 20 6c 69 6b 65 20 74 |IST look|s like t|
|00002160| 68 69 73 20 28 28 5c 22 | 46 72 6f 6d 5c 22 29 20 |his ((\"|From\") |
|00002170| 28 5c 22 54 6f 5c 22 29 | 29 2e 20 20 54 68 69 73 |(\"To\")|). This|
|00002180| 20 66 75 6e 63 74 69 6f | 6e 20 72 65 74 75 72 6e | functio|n return|
|00002190| 73 0a 74 68 65 20 61 6c | 69 73 74 20 65 6c 65 6d |s.the al|ist elem|
|000021a0| 65 6e 74 20 77 68 6f 73 | 65 20 63 61 72 20 6d 61 |ent whos|e car ma|
|000021b0| 74 63 68 65 73 20 74 68 | 65 20 68 65 61 64 65 72 |tches th|e header|
|000021c0| 20 73 74 61 72 74 69 6e | 67 20 61 74 20 70 6f 69 | startin|g at poi|
|000021d0| 6e 74 2e 0a 54 68 65 20 | 68 65 61 64 65 72 20 6f |nt..The |header o|
|000021e0| 72 64 65 72 69 6e 67 20 | 63 6f 64 65 20 75 73 65 |rdering |code use|
|000021f0| 73 20 74 68 65 20 63 64 | 72 20 6f 66 20 74 68 65 |s the cd|r of the|
|00002200| 20 65 6c 65 6d 65 6e 74 | 0a 72 65 74 75 72 6e 65 | element|.returne|
|00002210| 64 20 74 6f 20 68 6f 6c | 64 20 68 65 61 64 65 72 |d to hol|d header|
|00002220| 73 20 74 6f 20 62 65 20 | 6f 75 74 70 75 74 20 6c |s to be |output l|
|00002230| 61 74 65 72 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |ater."])|.(defali|
|00002240| 61 73 20 27 76 6d 2d 6d | 61 74 63 68 2d 68 65 61 |as 'vm-m|atch-hea|
|00002250| 64 65 72 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |der #[(&|optional|
|00002260| 20 68 65 61 64 65 72 2d | 6e 61 6d 65 29 20 22 c0 | header-|name) ".|
|00002270| c1 1a 1b 0c ab 8a c5 0c | 21 ad c6 c5 5c 6e 21 aa |........|!...\n!.|
|00002280| 83 c5 5c 6e 21 ad bc 8a | 0e 06 c7 60 49 88 0e 06 |..\n!...|...`I...|
|00002290| c8 60 49 88 0e 06 c9 ca | 95 49 88 c7 95 62 88 cb |.`I.....|.I...b..|
|000022a0| cc 77 88 0e 06 cd 60 49 | 88 ca 79 88 c5 ce 21 ab |.w....`I|..y...!.|
|000022b0| 85 ca 79 88 aa 76 0e 06 | ca 60 49 88 0e 06 cf 60 |..y..v..|.`I....`|
|000022c0| 53 49 29 2a 87 22 20 5b | 74 20 22 5c 5c 28 5b 5e |SI)*." [|t "\\([^|
|000022d0| 20 09 5c 6e 3a 5d 2b 5c | 5c 29 3a 22 20 68 65 61 | .\n:]+\|\):" hea|
|000022e0| 64 65 72 2d 6e 61 6d 65 | 2d 72 65 67 65 78 70 20 |der-name|-regexp |
|000022f0| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00002300| 20 68 65 61 64 65 72 2d | 6e 61 6d 65 20 6c 6f 6f | header-|name loo|
|00002310| 6b 69 6e 67 2d 61 74 20 | 76 6d 2d 6d 61 74 63 68 |king-at |vm-match|
|00002320| 65 64 2d 68 65 61 64 65 | 72 2d 76 65 63 74 6f 72 |ed-heade|r-vector|
|00002330| 20 30 20 32 20 33 20 31 | 20 22 20 09 22 20 6e 69 | 0 2 3 1| " ." ni|
|00002340| 6c 20 34 20 22 5b 20 09 | 5d 22 20 35 5d 20 33 20 |l 4 "[ .|]" 5] 3 |
|00002350| 22 5c 0a 4d 61 74 63 68 | 20 61 20 68 65 61 64 65 |"\.Match| a heade|
|00002360| 72 20 61 6e 64 20 73 61 | 76 65 20 73 6f 6d 65 20 |r and sa|ve some |
|00002370| 73 74 61 74 65 20 69 6e | 66 6f 72 6d 61 74 69 6f |state in|formatio|
|00002380| 6e 20 61 62 6f 75 74 20 | 74 68 65 20 6d 61 74 63 |n about |the matc|
|00002390| 68 65 64 20 68 65 61 64 | 65 72 2e 0a 4f 70 74 69 |hed head|er..Opti|
|000023a0| 6f 6e 61 6c 20 66 69 72 | 73 74 20 61 72 67 20 48 |onal fir|st arg H|
|000023b0| 45 41 44 45 52 2d 4e 41 | 4d 45 20 6d 65 61 6e 73 |EADER-NA|ME means|
|000023c0| 20 6d 61 74 63 68 20 74 | 68 65 20 68 65 61 64 65 | match t|he heade|
|000023d0| 72 20 6f 6e 6c 79 0a 69 | 66 20 69 74 20 6d 61 74 |r only.i|f it mat|
|000023e0| 63 68 65 73 20 48 45 41 | 44 45 52 2d 4e 41 4d 45 |ches HEA|DER-NAME|
|000023f0| 2e 20 20 48 45 41 44 45 | 52 2d 4e 41 4d 45 20 73 |. HEADE|R-NAME s|
|00002400| 68 6f 75 6c 64 20 62 65 | 20 61 20 73 74 72 69 6e |hould be| a strin|
|00002410| 67 0a 63 6f 6e 74 61 69 | 6e 69 6e 67 20 61 20 68 |g.contai|ning a h|
|00002420| 65 61 64 65 72 20 6e 61 | 6d 65 2e 20 20 54 68 65 |eader na|me. The|
|00002430| 20 73 74 72 69 6e 67 20 | 73 68 6f 75 6c 64 20 65 | string |should e|
|00002440| 6e 64 20 77 69 74 68 20 | 61 20 63 6f 6c 6f 6e 20 |nd with |a colon |
|00002450| 69 66 20 6a 75 73 74 0a | 74 68 61 74 20 6e 61 6d |if just.|that nam|
|00002460| 65 20 73 68 6f 75 6c 64 | 20 62 65 20 6d 61 74 63 |e should| be matc|
|00002470| 68 65 64 2e 20 20 41 20 | 73 74 72 69 6e 67 20 74 |hed. A |string t|
|00002480| 68 61 74 20 64 6f 65 73 | 20 6e 6f 74 20 65 6e 64 |hat does| not end|
|00002490| 20 69 6e 20 61 20 63 6f | 6c 6f 6e 0a 77 69 6c 6c | in a co|lon.will|
|000024a0| 20 6d 61 74 63 68 20 61 | 6c 6c 20 68 65 61 64 65 | match a|ll heade|
|000024b0| 72 73 20 74 68 61 74 20 | 62 65 67 69 6e 20 77 69 |rs that |begin wi|
|000024c0| 74 68 20 74 68 61 74 20 | 73 74 72 69 6e 67 2e 0a |th that |string..|
|000024d0| 0a 53 74 61 74 65 20 69 | 6e 66 6f 72 6d 61 74 69 |.State i|nformati|
|000024e0| 6f 6e 20 69 73 20 73 74 | 6f 72 65 64 20 69 6e 20 |on is st|ored in |
|000024f0| 76 6d 2d 6d 61 74 63 68 | 65 64 2d 68 65 61 64 65 |vm-match|ed-heade|
|00002500| 72 2d 76 65 63 74 6f 72 | 20 62 6f 75 6e 64 20 74 |r-vector| bound t|
|00002510| 6f 20 61 20 76 65 63 74 | 6f 72 0a 6f 66 20 74 68 |o a vect|or.of th|
|00002520| 69 73 20 66 6f 72 6d 2e | 0a 0a 20 5b 20 68 65 61 |is form.|.. [ hea|
|00002530| 64 65 72 2d 73 74 61 72 | 74 20 68 65 61 64 65 72 |der-star|t header|
|00002540| 2d 65 6e 64 0a 20 20 20 | 68 65 61 64 65 72 2d 6e |-end. |header-n|
|00002550| 61 6d 65 2d 73 74 61 72 | 74 20 68 65 61 64 65 72 |ame-star|t header|
|00002560| 2d 6e 61 6d 65 2d 65 6e | 64 0a 20 20 20 68 65 61 |-name-en|d. hea|
|00002570| 64 65 72 2d 63 6f 6e 74 | 65 6e 74 73 2d 73 74 61 |der-cont|ents-sta|
|00002580| 72 74 20 68 65 61 64 65 | 72 2d 63 6f 6e 74 65 6e |rt heade|r-conten|
|00002590| 74 73 2d 65 6e 64 20 5d | 0a 0a 45 6c 65 6d 65 6e |ts-end ]|..Elemen|
|000025a0| 74 73 20 61 72 65 20 69 | 6e 74 65 67 65 72 73 2e |ts are i|ntegers.|
|000025b0| 0a 54 68 65 72 65 20 61 | 72 65 20 66 75 6e 63 74 |.There a|re funct|
|000025c0| 69 6f 6e 73 20 74 6f 20 | 61 63 63 65 73 73 20 61 |ions to |access a|
|000025d0| 6e 64 20 75 73 65 20 74 | 68 69 73 20 69 6e 66 6f |nd use t|his info|
|000025e0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|000025f0| 76 6d 2d 6d 61 74 63 68 | 65 64 2d 68 65 61 64 65 |vm-match|ed-heade|
|00002600| 72 20 23 5b 6e 69 6c 20 | 22 c0 09 c2 48 09 c3 48 |r #[nil |"...H..H|
|00002610| 5c 22 87 22 20 5b 76 6d | 2d 62 75 66 66 65 72 2d |\"." [vm|-buffer-|
|00002620| 73 75 62 73 74 72 69 6e | 67 2d 6e 6f 2d 70 72 6f |substrin|g-no-pro|
|00002630| 70 65 72 74 69 65 73 20 | 76 6d 2d 6d 61 74 63 68 |perties |vm-match|
|00002640| 65 64 2d 68 65 61 64 65 | 72 2d 76 65 63 74 6f 72 |ed-heade|r-vector|
|00002650| 20 30 20 31 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 | 0 1] 4 |"\.Retur|
|00002660| 6e 73 20 74 68 65 20 68 | 65 61 64 65 72 20 6c 61 |ns the h|eader la|
|00002670| 73 74 20 6d 61 74 63 68 | 65 64 20 62 79 20 76 6d |st match|ed by vm|
|00002680| 2d 6d 61 74 63 68 2d 68 | 65 61 64 65 72 2e 0a 54 |-match-h|eader..T|
|00002690| 72 61 69 6c 69 6e 67 20 | 6e 65 77 6c 69 6e 65 20 |railing |newline |
|000026a0| 69 73 20 69 6e 63 6c 75 | 64 65 64 2e 22 5d 29 0a |is inclu|ded."]).|
|000026b0| 28 64 65 66 61 6c 69 61 | 73 20 27 76 6d 2d 6d 61 |(defalia|s 'vm-ma|
|000026c0| 74 63 68 65 64 2d 68 65 | 61 64 65 72 2d 6e 61 6d |tched-he|ader-nam|
|000026d0| 65 20 23 5b 6e 69 6c 20 | 22 c0 09 c2 48 09 c3 48 |e #[nil |"...H..H|
|000026e0| 5c 22 87 22 20 5b 76 6d | 2d 62 75 66 66 65 72 2d |\"." [vm|-buffer-|
|000026f0| 73 75 62 73 74 72 69 6e | 67 2d 6e 6f 2d 70 72 6f |substrin|g-no-pro|
|00002700| 70 65 72 74 69 65 73 20 | 76 6d 2d 6d 61 74 63 68 |perties |vm-match|
|00002710| 65 64 2d 68 65 61 64 65 | 72 2d 76 65 63 74 6f 72 |ed-heade|r-vector|
|00002720| 20 32 20 33 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 | 2 3] 4 |"\.Retur|
|00002730| 6e 73 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |ns the n|ame of t|
|00002740| 68 65 20 68 65 61 64 65 | 72 20 6c 61 73 74 20 6d |he heade|r last m|
|00002750| 61 74 63 68 65 64 20 62 | 79 20 76 6d 2d 6d 61 74 |atched b|y vm-mat|
|00002760| 63 68 2d 68 65 61 64 65 | 72 2e 22 5d 29 0a 28 64 |ch-heade|r."]).(d|
|00002770| 65 66 61 6c 69 61 73 20 | 27 76 6d 2d 6d 61 74 63 |efalias |'vm-matc|
|00002780| 68 65 64 2d 68 65 61 64 | 65 72 2d 63 6f 6e 74 65 |hed-head|er-conte|
|00002790| 6e 74 73 20 23 5b 6e 69 | 6c 20 22 c0 09 c2 48 09 |nts #[ni|l "...H.|
|000027a0| c3 48 5c 22 87 22 20 5b | 76 6d 2d 62 75 66 66 65 |.H\"." [|vm-buffe|
|000027b0| 72 2d 73 75 62 73 74 72 | 69 6e 67 2d 6e 6f 2d 70 |r-substr|ing-no-p|
|000027c0| 72 6f 70 65 72 74 69 65 | 73 20 76 6d 2d 6d 61 74 |ropertie|s vm-mat|
|000027d0| 63 68 65 64 2d 68 65 61 | 64 65 72 2d 76 65 63 74 |ched-hea|der-vect|
|000027e0| 6f 72 20 34 20 35 5d 20 | 34 20 22 5c 0a 52 65 74 |or 4 5] |4 "\.Ret|
|000027f0| 75 72 6e 73 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |urns the| content|
|00002800| 73 20 6f 66 20 74 68 65 | 20 68 65 61 64 65 72 20 |s of the| header |
|00002810| 6c 61 73 74 20 6d 61 74 | 63 68 65 64 20 62 79 20 |last mat|ched by |
|00002820| 76 6d 2d 6d 61 74 63 68 | 2d 68 65 61 64 65 72 2e |vm-match|-header.|
|00002830| 0a 54 72 61 69 6c 69 6e | 67 20 6e 65 77 6c 69 6e |.Trailin|g newlin|
|00002840| 65 20 69 73 20 6e 6f 74 | 20 69 6e 63 6c 75 64 65 |e is not| include|
|00002850| 64 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d."]).(d|efalias |
|00002860| 27 76 6d 2d 6d 61 74 63 | 68 65 64 2d 68 65 61 64 |'vm-matc|hed-head|
|00002870| 65 72 2d 73 74 61 72 74 | 20 23 5b 6e 69 6c 20 22 |er-start| #[nil "|
|00002880| 08 c1 48 87 22 20 5b 76 | 6d 2d 6d 61 74 63 68 65 |..H." [v|m-matche|
|00002890| 64 2d 68 65 61 64 65 72 | 2d 76 65 63 74 6f 72 20 |d-header|-vector |
|000028a0| 30 5d 20 32 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |0] 2 "\.|Returns |
|000028b0| 74 68 65 20 73 74 61 72 | 74 20 70 6f 73 69 74 69 |the star|t positi|
|000028c0| 6f 6e 20 6f 66 20 74 68 | 65 20 68 65 61 64 65 72 |on of th|e header|
|000028d0| 20 6c 61 73 74 20 6d 61 | 74 63 68 65 64 20 62 79 | last ma|tched by|
|000028e0| 20 76 6d 2d 6d 61 74 63 | 68 2d 68 65 61 64 65 72 | vm-matc|h-header|
|000028f0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00002900| 76 6d 2d 6d 61 74 63 68 | 65 64 2d 68 65 61 64 65 |vm-match|ed-heade|
|00002910| 72 2d 65 6e 64 20 23 5b | 6e 69 6c 20 22 08 c1 48 |r-end #[|nil "..H|
|00002920| 87 22 20 5b 76 6d 2d 6d | 61 74 63 68 65 64 2d 68 |." [vm-m|atched-h|
|00002930| 65 61 64 65 72 2d 76 65 | 63 74 6f 72 20 31 5d 20 |eader-ve|ctor 1] |
|00002940| 32 20 22 5c 0a 52 65 74 | 75 72 6e 73 20 74 68 65 |2 "\.Ret|urns the|
|00002950| 20 65 6e 64 20 70 6f 73 | 69 74 69 6f 6e 20 6f 66 | end pos|ition of|
|00002960| 20 74 68 65 20 68 65 61 | 64 65 72 20 6c 61 73 74 | the hea|der last|
|00002970| 20 6d 61 74 63 68 65 64 | 20 62 79 20 76 6d 2d 6d | matched| by vm-m|
|00002980| 61 74 63 68 2d 68 65 61 | 64 65 72 2e 22 5d 29 0a |atch-hea|der."]).|
|00002990| 28 64 65 66 61 6c 69 61 | 73 20 27 76 6d 2d 6d 61 |(defalia|s 'vm-ma|
|000029a0| 74 63 68 65 64 2d 68 65 | 61 64 65 72 2d 6e 61 6d |tched-he|ader-nam|
|000029b0| 65 2d 73 74 61 72 74 20 | 23 5b 6e 69 6c 20 22 08 |e-start |#[nil ".|
|000029c0| c1 48 87 22 20 5b 76 6d | 2d 6d 61 74 63 68 65 64 |.H." [vm|-matched|
|000029d0| 2d 68 65 61 64 65 72 2d | 76 65 63 74 6f 72 20 32 |-header-|vector 2|
|000029e0| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 2 "\.R|eturns t|
|000029f0| 68 65 20 73 74 61 72 74 | 20 70 6f 73 69 74 69 6f |he start| positio|
|00002a00| 6e 20 6f 66 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |n of the| name of|
|00002a10| 20 74 68 65 20 68 65 61 | 64 65 72 20 6c 61 73 74 | the hea|der last|
|00002a20| 20 6d 61 74 63 68 65 64 | 0a 62 79 20 76 6d 2d 6d | matched|.by vm-m|
|00002a30| 61 74 63 68 2d 68 65 61 | 64 65 72 2e 22 5d 29 0a |atch-hea|der."]).|
|00002a40| 28 64 65 66 61 6c 69 61 | 73 20 27 76 6d 2d 6d 61 |(defalia|s 'vm-ma|
|00002a50| 74 63 68 65 64 2d 68 65 | 61 64 65 72 2d 6e 61 6d |tched-he|ader-nam|
|00002a60| 65 2d 65 6e 64 20 23 5b | 6e 69 6c 20 22 08 c1 48 |e-end #[|nil "..H|
|00002a70| 87 22 20 5b 76 6d 2d 6d | 61 74 63 68 65 64 2d 68 |." [vm-m|atched-h|
|00002a80| 65 61 64 65 72 2d 76 65 | 63 74 6f 72 20 33 5d 20 |eader-ve|ctor 3] |
|00002a90| 32 20 22 5c 0a 52 65 74 | 75 72 6e 73 20 74 68 65 |2 "\.Ret|urns the|
|00002aa0| 20 65 6e 64 20 70 6f 73 | 69 74 69 6f 6e 20 6f 66 | end pos|ition of|
|00002ab0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00002ac0| 20 68 65 61 64 65 72 20 | 6c 61 73 74 20 6d 61 74 | header |last mat|
|00002ad0| 63 68 65 64 0a 62 79 20 | 76 6d 2d 6d 61 74 63 68 |ched.by |vm-match|
|00002ae0| 2d 68 65 61 64 65 72 2e | 22 5d 29 0a 28 64 65 66 |-header.|"]).(def|
|00002af0| 61 6c 69 61 73 20 27 76 | 6d 2d 6d 61 74 63 68 65 |alias 'v|m-matche|
|00002b00| 64 2d 68 65 61 64 65 72 | 2d 63 6f 6e 74 65 6e 74 |d-header|-content|
|00002b10| 73 2d 73 74 61 72 74 20 | 23 5b 6e 69 6c 20 22 08 |s-start |#[nil ".|
|00002b20| c1 48 87 22 20 5b 76 6d | 2d 6d 61 74 63 68 65 64 |.H." [vm|-matched|
|00002b30| 2d 68 65 61 64 65 72 2d | 76 65 63 74 6f 72 20 34 |-header-|vector 4|
|00002b40| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 2 "\.R|eturns t|
|00002b50| 68 65 20 73 74 61 72 74 | 20 70 6f 73 69 74 69 6f |he start| positio|
|00002b60| 6e 20 6f 66 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |n of the| content|
|00002b70| 73 20 6f 66 20 74 68 65 | 20 68 65 61 64 65 72 20 |s of the| header |
|00002b80| 6c 61 73 74 20 6d 61 74 | 63 68 65 64 0a 62 79 20 |last mat|ched.by |
|00002b90| 76 6d 2d 6d 61 74 63 68 | 2d 68 65 61 64 65 72 2e |vm-match|-header.|
|00002ba0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |"]).(def|alias 'v|
|00002bb0| 6d 2d 6d 61 74 63 68 65 | 64 2d 68 65 61 64 65 72 |m-matche|d-header|
|00002bc0| 2d 63 6f 6e 74 65 6e 74 | 73 2d 65 6e 64 20 23 5b |-content|s-end #[|
|00002bd0| 6e 69 6c 20 22 08 c1 48 | 87 22 20 5b 76 6d 2d 6d |nil "..H|." [vm-m|
|00002be0| 61 74 63 68 65 64 2d 68 | 65 61 64 65 72 2d 76 65 |atched-h|eader-ve|
|00002bf0| 63 74 6f 72 20 35 5d 20 | 32 20 22 5c 0a 52 65 74 |ctor 5] |2 "\.Ret|
|00002c00| 75 72 6e 73 20 74 68 65 | 20 65 6e 64 20 70 6f 73 |urns the| end pos|
|00002c10| 69 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 63 6f 6e |ition of| the con|
|00002c20| 74 65 6e 74 73 20 6f 66 | 20 74 68 65 20 68 65 61 |tents of| the hea|
|00002c30| 64 65 72 20 6c 61 73 74 | 20 6d 61 74 63 68 65 64 |der last| matched|
|00002c40| 0a 62 79 20 76 6d 2d 6d | 61 74 63 68 2d 68 65 61 |.by vm-m|atch-hea|
|00002c50| 64 65 72 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |der."]).|(defalia|
|00002c60| 73 20 27 76 6d 2d 67 65 | 74 2d 66 6f 6c 64 65 72 |s 'vm-ge|t-folder|
|00002c70| 2d 74 79 70 65 20 23 5b | 28 26 6f 70 74 69 6f 6e |-type #[|(&option|
|00002c80| 61 6c 20 66 69 6c 65 20 | 73 74 61 72 74 20 65 6e |al file |start en|
|00002c90| 64 29 20 22 c0 89 89 19 | 1a 1b c4 8e 8a 0d ab 9d |d) "....|........|
|00002ca0| c6 0d 21 89 12 ab 85 5c | 6e 71 88 aa 91 c7 c8 21 |..!....\|nq.....!|
|00002cb0| 89 13 71 88 c9 0d 21 ab | 85 c0 ca cb 8f 88 8a 8c |..q...!.|........|
|00002cc0| 0e 0c ac 83 cd 16 0c 0e | 0e ac 85 cf 20 54 16 0e |........|.... T..|
|00002cd0| 7e 88 0e 0c 0e 0e 7d 88 | 65 62 88 cf 20 d0 55 ab |~.....}.|eb.. .U.|
|00002ce0| 83 c0 aa b8 d1 d2 21 ab | a2 0e 13 ac 83 d4 aa ac |......!.|........|
|00002cf0| d5 19 d6 0e 17 c0 d5 23 | 88 29 cd 94 ab 83 d4 aa |.......#|.)......|
|00002d00| 9b d0 94 ab 83 d8 aa 94 | d4 aa 91 d1 d9 21 ab 83 |........|.....!..|
|00002d10| da aa 89 d1 db 21 ab 83 | dc aa 81 dd 2e 07 87 22 |.....!..|......."|
|00002d20| 20 5b 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d | [nil ca|se-fold-|
|00002d30| 73 65 61 72 63 68 20 62 | 20 74 65 6d 70 2d 62 75 |search b| temp-bu|
|00002d40| 66 66 65 72 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |ffer ((b|yte-code|
|00002d50| 20 22 08 ab 84 c1 08 21 | 88 c1 87 22 20 5b 74 65 | ".....!|..." [te|
|00002d60| 6d 70 2d 62 75 66 66 65 | 72 20 6b 69 6c 6c 2d 62 |mp-buffe|r kill-b|
|00002d70| 75 66 66 65 72 5d 20 32 | 29 29 20 66 69 6c 65 20 |uffer] 2|)) file |
|00002d80| 76 6d 2d 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |vm-get-f|ile-buff|
|00002d90| 65 72 20 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |er gener|ate-new-|
|00002da0| 62 75 66 66 65 72 20 22 | 2a 76 6d 2d 77 6f 72 6b |buffer "|*vm-work|
|00002db0| 2a 22 20 66 69 6c 65 2d | 72 65 61 64 61 62 6c 65 |*" file-|readable|
|00002dc0| 2d 70 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |-p (byte|-code ".|
|00002dd0| 19 c2 0b c4 c5 c6 24 88 | 29 c4 87 22 20 5b 62 69 |......$.|).." [bi|
|00002de0| 6e 61 72 79 20 63 6f 64 | 69 6e 67 2d 73 79 73 74 |nary cod|ing-syst|
|00002df0| 65 6d 2d 66 6f 72 2d 72 | 65 61 64 20 69 6e 73 65 |em-for-r|ead inse|
|00002e00| 72 74 2d 66 69 6c 65 2d | 63 6f 6e 74 65 6e 74 73 |rt-file-|contents|
|00002e10| 20 66 69 6c 65 20 6e 69 | 6c 20 30 20 34 30 39 36 | file ni|l 0 4096|
|00002e20| 5d 20 35 29 20 28 28 77 | 72 6f 6e 67 2d 6e 75 6d |] 5) ((w|rong-num|
|00002e30| 62 65 72 2d 6f 66 2d 61 | 72 67 75 6d 65 6e 74 73 |ber-of-a|rguments|
|00002e40| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 5c | (byte-c|ode "..\|
|00002e50| 6e 0b c4 c5 c6 26 06 87 | 22 20 5b 63 61 6c 6c 2d |n....&..|" [call-|
|00002e60| 70 72 6f 63 65 73 73 20 | 22 73 65 64 22 20 66 69 |process |"sed" fi|
|00002e70| 6c 65 20 74 65 6d 70 2d | 62 75 66 66 65 72 20 6e |le temp-|buffer n|
|00002e80| 69 6c 20 22 2d 6e 22 20 | 22 31 2c 2f 5e 24 2f 70 |il "-n" |"1,/^$/p|
|00002e90| 22 5d 20 37 29 29 29 20 | 73 74 61 72 74 20 31 20 |"] 7))) |start 1 |
|00002ea0| 65 6e 64 20 62 75 66 66 | 65 72 2d 73 69 7a 65 20 |end buff|er-size |
|00002eb0| 30 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5c 6e |0 lookin|g-at "\n|
|00002ec0| 2a 46 72 6f 6d 20 22 20 | 76 6d 2d 74 72 75 73 74 |*From " |vm-trust|
|00002ed0| 2d 46 72 6f 6d 5f 2d 77 | 69 74 68 2d 43 6f 6e 74 |-From_-w|ith-Cont|
|00002ee0| 65 6e 74 2d 4c 65 6e 67 | 74 68 20 46 72 6f 6d 5f |ent-Leng|th From_|
|00002ef0| 20 74 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 | t re-se|arch-for|
|00002f00| 77 61 72 64 20 76 6d 2d | 63 6f 6e 74 65 6e 74 2d |ward vm-|content-|
|00002f10| 6c 65 6e 67 74 68 2d 73 | 65 61 72 63 68 2d 72 65 |length-s|earch-re|
|00002f20| 67 65 78 70 20 46 72 6f | 6d 5f 2d 77 69 74 68 2d |gexp Fro|m_-with-|
|00002f30| 43 6f 6e 74 65 6e 74 2d | 4c 65 6e 67 74 68 20 22 |Content-|Length "|
|00002f40| 01 01 01 01 5c 6e 22 20 | 6d 6d 64 66 20 22 42 41 |....\n" |mmdf "BA|
|00002f50| 42 59 4c 20 4f 50 54 49 | 4f 4e 53 3a 22 20 62 61 |BYL OPTI|ONS:" ba|
|00002f60| 62 79 6c 20 75 6e 6b 6e | 6f 77 6e 5d 20 35 20 22 |byl unkn|own] 5 "|
|00002f70| 5c 0a 52 65 74 75 72 6e | 20 61 20 73 79 6d 62 6f |\.Return| a symbo|
|00002f80| 6c 20 69 6e 64 69 63 61 | 74 69 6e 67 20 74 68 65 |l indica|ting the|
|00002f90| 20 66 6f 6c 64 65 72 20 | 74 79 70 65 20 6f 66 20 | folder |type of |
|00002fa0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00002fb0| 65 72 2e 0a 54 68 69 73 | 20 66 75 6e 63 74 69 6f |er..This| functio|
|00002fc0| 6e 20 77 6f 72 6b 73 20 | 62 79 20 65 78 61 6d 69 |n works |by exami|
|00002fd0| 6e 69 6e 67 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |ning the| beginni|
|00002fe0| 6e 67 20 6f 66 20 61 20 | 66 6f 6c 64 65 72 2e 0a |ng of a |folder..|
|00002ff0| 49 66 20 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 20 |If optio|nal arg |
|00003000| 46 49 4c 45 20 69 73 20 | 70 72 65 73 65 6e 74 20 |FILE is |present |
|00003010| 74 68 65 20 74 79 70 65 | 20 6f 66 20 46 49 4c 45 |the type| of FILE|
|00003020| 20 69 73 20 72 65 74 75 | 72 6e 65 64 20 69 6e 73 | is retu|rned ins|
|00003030| 74 65 61 64 2e 0a 49 66 | 20 6f 70 74 69 6f 6e 61 |tead..If| optiona|
|00003040| 6c 20 73 65 63 6f 6e 64 | 20 61 6e 64 20 74 68 69 |l second| and thi|
|00003050| 72 64 20 61 72 67 20 53 | 54 41 52 54 20 61 6e 64 |rd arg S|TART and|
|00003060| 20 45 4e 44 20 61 72 65 | 20 70 72 6f 76 69 64 65 | END are| provide|
|00003070| 64 2c 0a 76 6d 2d 67 65 | 74 2d 66 6f 6c 64 65 72 |d,.vm-ge|t-folder|
|00003080| 2d 74 79 70 65 20 77 69 | 6c 6c 20 65 78 61 6d 69 |-type wi|ll exami|
|00003090| 6e 65 20 74 68 65 20 74 | 65 78 74 20 62 65 74 77 |ne the t|ext betw|
|000030a0| 65 65 6e 20 74 68 6f 73 | 65 20 62 75 66 66 65 72 |een thos|e buffer|
|000030b0| 0a 70 6f 73 69 74 69 6f | 6e 73 2e 20 20 53 54 41 |.positio|ns. STA|
|000030c0| 52 54 20 61 6e 64 20 45 | 4e 44 20 64 65 66 61 75 |RT and E|ND defau|
|000030d0| 6c 74 20 74 6f 20 31 20 | 61 6e 64 20 28 62 75 66 |lt to 1 |and (buf|
|000030e0| 66 65 72 2d 73 69 7a 65 | 29 20 2b 20 31 2e 0a 0a |fer-size|) + 1...|
|000030f0| 52 65 74 75 72 6e 73 0a | 20 20 6e 69 6c 20 20 20 |Returns.| nil |
|00003100| 20 20 20 69 66 20 66 6f | 6c 64 65 72 20 68 61 73 | if fo|lder has|
|00003110| 20 6e 6f 20 74 79 70 65 | 20 28 65 6d 70 74 79 29 | no type| (empty)|
|00003120| 0a 20 20 75 6e 6b 6e 6f | 77 6e 20 20 69 66 20 74 |. unkno|wn if t|
|00003130| 68 65 20 74 79 70 65 20 | 69 73 20 6e 6f 74 20 6b |he type |is not k|
|00003140| 6e 6f 77 6e 20 74 6f 20 | 56 4d 0a 20 20 6d 6d 64 |nown to |VM. mmd|
|00003150| 66 20 20 20 20 20 66 6f | 72 20 4d 4d 44 46 20 66 |f fo|r MMDF f|
|00003160| 6f 6c 64 65 72 73 0a 20 | 20 62 61 62 79 6c 20 20 |olders. | babyl |
|00003170| 20 20 66 6f 72 20 42 41 | 42 59 4c 20 66 6f 6c 64 | for BA|BYL fold|
|00003180| 65 72 73 0a 20 20 46 72 | 6f 6d 5f 20 20 20 20 66 |ers. Fr|om_ f|
|00003190| 6f 72 20 55 4e 49 58 20 | 46 72 6f 6d 5f 20 66 6f |or UNIX |From_ fo|
|000031a0| 6c 64 65 72 73 0a 0a 49 | 66 20 76 6d 2d 74 72 75 |lders..I|f vm-tru|
|000031b0| 73 74 2d 46 72 6f 6d 5f | 2d 77 69 74 68 2d 43 6f |st-From_|-with-Co|
|000031c0| 6e 74 65 6e 74 2d 4c 65 | 6e 67 74 68 20 69 73 20 |ntent-Le|ngth is |
|000031d0| 6e 6f 6e 2d 6e 69 6c 2c | 0a 46 72 6f 6d 5f 2d 77 |non-nil,|.From_-w|
|000031e0| 69 74 68 2d 43 6f 6e 74 | 65 6e 74 2d 4c 65 6e 67 |ith-Cont|ent-Leng|
|000031f0| 74 68 20 69 73 20 72 65 | 74 75 72 6e 65 64 20 69 |th is re|turned i|
|00003200| 66 20 74 68 65 20 66 69 | 72 73 74 20 6d 65 73 73 |f the fi|rst mess|
|00003210| 61 67 65 20 69 6e 20 74 | 68 65 0a 66 6f 6c 64 65 |age in t|he.folde|
|00003220| 72 20 68 61 73 20 61 20 | 43 6f 6e 74 65 6e 74 2d |r has a |Content-|
|00003230| 4c 65 6e 67 74 68 20 68 | 65 61 64 65 72 20 61 6e |Length h|eader an|
|00003240| 64 20 74 68 65 20 66 6f | 6c 64 65 72 20 6f 74 68 |d the fo|lder oth|
|00003250| 65 72 77 69 73 65 20 6c | 6f 6f 6b 73 0a 6c 69 6b |erwise l|ooks.lik|
|00003260| 65 20 61 20 46 72 6f 6d | 5f 20 66 6f 6c 64 65 72 |e a From|_ folder|
|00003270| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00003280| 76 6d 2d 63 6f 6e 76 65 | 72 74 2d 66 6f 6c 64 65 |vm-conve|rt-folde|
|00003290| 72 2d 74 79 70 65 20 23 | 5b 28 6f 6c 64 2d 74 79 |r-type #|[(old-ty|
|000032a0| 70 65 20 6e 65 77 2d 74 | 79 70 65 29 20 22 08 c1 |pe new-t|ype) "..|
|000032b0| 89 89 1a 1b 1c 1d 65 62 | 88 c6 20 88 c7 20 ab 9f |......eb|.. .. ..|
|000032c0| c8 20 0c 42 14 c9 20 88 | c8 20 0c 42 14 ca 20 88 |. .B.. .|. .B.. .|
|000032d0| c8 20 0c 42 14 cb 20 88 | c8 20 0c 42 14 aa 5d 0c |. .B.. .|. .B..].|
|000032e0| 9f 14 65 62 88 cc 08 0e | 0d 5c 22 88 0c ad c8 0c |..eb....|.\".....|
|000032f0| 40 13 0c 40 62 88 ce cf | 0e 0d 21 21 88 0c 40 0c |@..@b...|..!!..@.|
|00003300| 41 40 7c 88 d0 08 0e 0d | 5c 22 88 0c 41 41 14 d1 |A@|.....|\"..AA..|
|00003310| 0c 40 21 12 0c 40 62 88 | ce d2 0e 0d 21 21 88 0c |.@!..@b.|....!!..|
|00003320| 40 0c 41 40 7c 88 0b 62 | 88 d3 0e 0d 0b 5c 6e 23 |@.A@|..b|.....\n#|
|00003330| 88 0c 41 41 89 14 ac 39 | c1 2c 87 22 20 5b 6f 6c |..AA...9|.,." [ol|
|00003340| 64 2d 74 79 70 65 20 6e | 69 6c 20 65 6e 64 20 62 |d-type n|il end b|
|00003350| 65 67 20 70 6f 73 2d 6c | 69 73 74 20 76 6d 2d 66 |eg pos-l|ist vm-f|
|00003360| 6f 6c 64 65 72 2d 74 79 | 70 65 20 76 6d 2d 73 6b |older-ty|pe vm-sk|
|00003370| 69 70 2d 70 61 73 74 2d | 66 6f 6c 64 65 72 2d 68 |ip-past-|folder-h|
|00003380| 65 61 64 65 72 20 76 6d | 2d 66 69 6e 64 2d 6c 65 |eader vm|-find-le|
|00003390| 61 64 69 6e 67 2d 6d 65 | 73 73 61 67 65 2d 73 65 |ading-me|ssage-se|
|000033a0| 70 61 72 61 74 6f 72 20 | 70 6f 69 6e 74 2d 6d 61 |parator |point-ma|
|000033b0| 72 6b 65 72 20 76 6d 2d | 73 6b 69 70 2d 70 61 73 |rker vm-|skip-pas|
|000033c0| 74 2d 6c 65 61 64 69 6e | 67 2d 6d 65 73 73 61 67 |t-leadin|g-messag|
|000033d0| 65 2d 73 65 70 61 72 61 | 74 6f 72 20 76 6d 2d 66 |e-separa|tor vm-f|
|000033e0| 69 6e 64 2d 74 72 61 69 | 6c 69 6e 67 2d 6d 65 73 |ind-trai|ling-mes|
|000033f0| 73 61 67 65 2d 73 65 70 | 61 72 61 74 6f 72 20 76 |sage-sep|arator v|
|00003400| 6d 2d 73 6b 69 70 2d 70 | 61 73 74 2d 74 72 61 69 |m-skip-p|ast-trai|
|00003410| 6c 69 6e 67 2d 6d 65 73 | 73 61 67 65 2d 73 65 70 |ling-mes|sage-sep|
|00003420| 61 72 61 74 6f 72 20 76 | 6d 2d 63 6f 6e 76 65 72 |arator v|m-conver|
|00003430| 74 2d 66 6f 6c 64 65 72 | 2d 68 65 61 64 65 72 20 |t-folder|-header |
|00003440| 6e 65 77 2d 74 79 70 65 | 20 69 6e 73 65 72 74 2d |new-type| insert-|
|00003450| 62 65 66 6f 72 65 2d 6d | 61 72 6b 65 72 73 20 76 |before-m|arkers v|
|00003460| 6d 2d 6c 65 61 64 69 6e | 67 2d 6d 65 73 73 61 67 |m-leadin|g-messag|
|00003470| 65 2d 73 65 70 61 72 61 | 74 6f 72 20 76 6d 2d 63 |e-separa|tor vm-c|
|00003480| 6f 6e 76 65 72 74 2d 66 | 6f 6c 64 65 72 2d 74 79 |onvert-f|older-ty|
|00003490| 70 65 2d 68 65 61 64 65 | 72 73 20 6d 61 72 6b 65 |pe-heade|rs marke|
|000034a0| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 76 6d 2d 74 72 |r-positi|on vm-tr|
|000034b0| 61 69 6c 69 6e 67 2d 6d | 65 73 73 61 67 65 2d 73 |ailing-m|essage-s|
|000034c0| 65 70 61 72 61 74 6f 72 | 20 76 6d 2d 6d 75 6e 67 |eparator| vm-mung|
|000034d0| 65 2d 6d 65 73 73 61 67 | 65 2d 73 65 70 61 72 61 |e-messag|e-separa|
|000034e0| 74 6f 72 73 5d 20 35 20 | 22 5c 0a 43 6f 6e 76 65 |tors] 5 |"\.Conve|
|000034f0| 72 74 20 62 75 66 66 65 | 72 20 66 72 6f 6d 20 4f |rt buffe|r from O|
|00003500| 4c 44 2d 54 59 50 45 20 | 74 6f 20 4e 45 57 2d 54 |LD-TYPE |to NEW-T|
|00003510| 59 50 45 2e 0a 4f 4c 44 | 2d 54 59 50 45 20 61 6e |YPE..OLD|-TYPE an|
|00003520| 64 20 4e 45 57 2d 54 59 | 50 45 20 73 68 6f 75 6c |d NEW-TY|PE shoul|
|00003530| 64 20 62 65 20 73 79 6d | 62 6f 6c 73 20 72 65 74 |d be sym|bols ret|
|00003540| 75 72 6e 65 64 20 66 72 | 6f 6d 20 76 6d 2d 67 65 |urned fr|om vm-ge|
|00003550| 74 2d 66 6f 6c 64 65 72 | 2d 74 79 70 65 2e 0a 54 |t-folder|-type..T|
|00003560| 68 69 73 20 73 68 6f 75 | 6c 64 20 62 65 20 63 61 |his shou|ld be ca|
|00003570| 6c 6c 65 64 20 6f 6e 20 | 6e 6f 6e 2d 6c 69 76 65 |lled on |non-live|
|00003580| 20 62 75 66 66 65 72 73 | 20 6c 69 6b 65 20 63 72 | buffers| like cr|
|00003590| 61 73 68 20 62 6f 78 65 | 73 2e 0a 54 68 69 73 20 |ash boxe|s..This |
|000035a0| 77 69 6c 6c 20 63 6f 6e | 66 75 73 65 20 56 4d 20 |will con|fuse VM |
|000035b0| 69 66 20 63 61 6c 6c 65 | 64 20 6f 6e 20 61 20 66 |if calle|d on a f|
|000035c0| 6f 6c 64 65 72 20 62 75 | 66 66 65 72 20 69 6e 20 |older bu|ffer in |
|000035d0| 76 6d 2d 6d 6f 64 65 2e | 22 5d 29 0a 28 64 65 66 |vm-mode.|"]).(def|
|000035e0| 61 6c 69 61 73 20 27 76 | 6d 2d 63 6f 6e 76 65 72 |alias 'v|m-conver|
|000035f0| 74 2d 66 6f 6c 64 65 72 | 2d 68 65 61 64 65 72 20 |t-folder|-header |
|00003600| 23 5b 28 6f 6c 64 2d 74 | 79 70 65 20 6e 65 77 2d |#[(old-t|ype new-|
|00003610| 74 79 70 65 29 20 22 08 | c1 61 ab 96 8a 60 c2 1b |type) ".|.a...`..|
|00003620| 1c c5 c6 21 ab 8b c7 c8 | c9 c2 23 ab 84 0c 60 7c |...!....|..#...`||
|00003630| 88 2b 0e 5c 6e c1 61 ad | 83 cb cc 21 87 22 20 5b |.+.\n.a.|...!." [|
|00003640| 6f 6c 64 2d 74 79 70 65 | 20 62 61 62 79 6c 20 74 |old-type| babyl t|
|00003650| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00003660| 68 20 62 65 67 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |h beg lo|oking-at|
|00003670| 20 22 42 41 42 59 4c 20 | 4f 50 54 49 4f 4e 53 3a | "BABYL |OPTIONS:|
|00003680| 22 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |" search|-forward|
|00003690| 20 22 1f 22 20 6e 69 6c | 20 6e 65 77 2d 74 79 70 | "." nil| new-typ|
|000036a0| 65 20 69 6e 73 65 72 74 | 2d 62 65 66 6f 72 65 2d |e insert|-before-|
|000036b0| 6d 61 72 6b 65 72 73 20 | 22 42 41 42 59 4c 20 4f |markers |"BABYL O|
|000036c0| 50 54 49 4f 4e 53 3a 5c | 6e 56 65 72 73 69 6f 6e |PTIONS:\|nVersion|
|000036d0| 3a 20 35 5c 6e 1f 22 5d | 20 34 20 22 5c 0a 43 6f |: 5\n."]| 4 "\.Co|
|000036e0| 6e 76 65 72 74 20 74 68 | 65 20 66 6f 6c 64 65 72 |nvert th|e folder|
|000036f0| 20 68 65 61 64 65 72 20 | 66 6f 72 6d 20 4f 4c 44 | header |form OLD|
|00003700| 2d 54 59 50 45 20 74 6f | 20 4e 45 57 2d 54 59 50 |-TYPE to| NEW-TYP|
|00003710| 45 2e 0a 54 68 65 20 66 | 6f 6c 64 65 72 20 68 65 |E..The f|older he|
|00003720| 61 64 65 72 20 69 73 20 | 74 68 65 20 74 65 78 74 |ader is |the text|
|00003730| 20 61 74 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | at the |beginnin|
|00003740| 67 20 6f 66 20 61 20 66 | 6f 6c 64 65 72 20 74 68 |g of a f|older th|
|00003750| 61 74 0a 69 73 20 61 20 | 6c 65 67 61 6c 20 70 61 |at.is a |legal pa|
|00003760| 72 74 20 6f 66 20 74 68 | 65 20 66 6f 6c 64 65 72 |rt of th|e folder|
|00003770| 20 62 75 74 20 69 73 20 | 6e 6f 74 20 70 61 72 74 | but is |not part|
|00003780| 20 6f 66 20 74 68 65 20 | 66 69 72 73 74 0a 6d 65 | of the |first.me|
|00003790| 73 73 61 67 65 2e 20 20 | 54 68 69 73 20 69 73 20 |ssage. |This is |
|000037a0| 66 6f 72 20 64 65 61 6c | 69 6e 67 20 77 69 74 68 |for deal|ing with|
|000037b0| 20 42 41 42 59 4c 20 66 | 69 6c 65 73 2e 22 5d 29 | BABYL f|iles."])|
|000037c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 6d 2d 73 |.(defali|as 'vm-s|
|000037d0| 6b 69 70 2d 70 61 73 74 | 2d 66 6f 6c 64 65 72 2d |kip-past|-folder-|
|000037e0| 68 65 61 64 65 72 20 23 | 5b 6e 69 6c 20 22 08 c1 |header #|[nil "..|
|000037f0| 61 ad 85 c2 c3 c4 c5 23 | 87 22 20 5b 76 6d 2d 66 |a......#|." [vm-f|
|00003800| 6f 6c 64 65 72 2d 74 79 | 70 65 20 62 61 62 79 6c |older-ty|pe babyl|
|00003810| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00003820| 22 1f 22 20 6e 69 6c 20 | 30 5d 20 34 20 22 5c 0a |"." nil |0] 4 "\.|
|00003830| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 70 61 73 74 20 |Move poi|nt past |
|00003840| 74 68 65 20 66 6f 6c 64 | 65 72 20 68 65 61 64 65 |the fold|er heade|
|00003850| 72 2e 0a 54 68 65 20 66 | 6f 6c 64 65 72 20 68 65 |r..The f|older he|
|00003860| 61 64 65 72 20 69 73 20 | 74 68 65 20 74 65 78 74 |ader is |the text|
|00003870| 20 61 74 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | at the |beginnin|
|00003880| 67 20 6f 66 20 61 20 66 | 6f 6c 64 65 72 20 74 68 |g of a f|older th|
|00003890| 61 74 0a 69 73 20 61 20 | 6c 65 67 61 6c 20 70 61 |at.is a |legal pa|
|000038a0| 72 74 20 6f 66 20 74 68 | 65 20 66 6f 6c 64 65 72 |rt of th|e folder|
|000038b0| 20 62 75 74 20 69 73 20 | 6e 6f 74 20 70 61 72 74 | but is |not part|
|000038c0| 20 6f 66 20 74 68 65 20 | 66 69 72 73 74 0a 6d 65 | of the |first.me|
|000038d0| 73 73 61 67 65 2e 20 20 | 54 68 69 73 20 69 73 20 |ssage. |This is |
|000038e0| 66 6f 72 20 64 65 61 6c | 69 6e 67 20 77 69 74 68 |for deal|ing with|
|000038f0| 20 42 41 42 59 4c 20 66 | 69 6c 65 73 2e 22 5d 29 | BABYL f|iles."])|
|00003900| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 6d 2d 63 |.(defali|as 'vm-c|
|00003910| 6f 6e 76 65 72 74 2d 66 | 6f 6c 64 65 72 2d 74 79 |onvert-f|older-ty|
|00003920| 70 65 2d 68 65 61 64 65 | 72 73 20 23 5b 28 6f 6c |pe-heade|rs #[(ol|
|00003930| 64 2d 74 79 70 65 20 6e | 65 77 2d 74 79 70 65 29 |d-type n|ew-type)|
|00003940| 20 22 c0 19 5c 6e c3 61 | ab 9a c0 1c 8a 8a c5 c6 | "..\n.a|........|
|00003950| c0 c7 23 88 60 14 29 0e | 08 1e 09 ca 20 88 29 60 |..#.`.).|.... .)`|
|00003960| 0c 5a 11 2a 0e 08 c3 61 | ac 85 5c 6e c3 61 ab a4 |.Z.*...a|..\n.a..|
|00003970| 8a cb 1e 0c cd 0e 0e c0 | cb 23 29 ab 96 cf 94 ac |........|.#).....|
|00003980| 92 c7 94 62 88 d0 0e 11 | 21 ab 88 d2 20 d3 20 7c |...b....|!... . ||
|00003990| 88 aa 5e 29 5c 6e c3 61 | ad 8b 8a 0e 11 d4 d5 09 |..^)\n.a|........|
|000039a0| 21 d6 b1 04 29 29 87 22 | 20 5b 6e 69 6c 20 6c 65 |!...))."| [nil le|
|000039b0| 6e 67 74 68 20 6e 65 77 | 2d 74 79 70 65 20 46 72 |ngth new|-type Fr|
|000039c0| 6f 6d 5f 2d 77 69 74 68 | 2d 43 6f 6e 74 65 6e 74 |om_-with|-Content|
|000039d0| 2d 4c 65 6e 67 74 68 20 | 73 74 61 72 74 20 73 65 |-Length |start se|
|000039e0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5c 6e |arch-for|ward "\n|
|000039f0| 5c 6e 22 20 30 20 6f 6c | 64 2d 74 79 70 65 20 76 |\n" 0 ol|d-type v|
|00003a00| 6d 2d 66 6f 6c 64 65 72 | 2d 74 79 70 65 20 76 6d |m-folder|-type vm|
|00003a10| 2d 66 69 6e 64 2d 74 72 | 61 69 6c 69 6e 67 2d 6d |-find-tr|ailing-m|
|00003a20| 65 73 73 61 67 65 2d 73 | 65 70 61 72 61 74 6f 72 |essage-s|eparator|
|00003a30| 20 74 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 | t case-|fold-sea|
|00003a40| 72 63 68 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |rch re-s|earch-fo|
|00003a50| 72 77 61 72 64 20 76 6d | 2d 63 6f 6e 74 65 6e 74 |rward vm|-content|
|00003a60| 2d 6c 65 6e 67 74 68 2d | 73 65 61 72 63 68 2d 72 |-length-|search-r|
|00003a70| 65 67 65 78 70 20 31 20 | 76 6d 2d 6d 61 74 63 68 |egexp 1 |vm-match|
|00003a80| 2d 68 65 61 64 65 72 20 | 76 6d 2d 63 6f 6e 74 65 |-header |vm-conte|
|00003a90| 6e 74 2d 6c 65 6e 67 74 | 68 2d 68 65 61 64 65 72 |nt-lengt|h-header|
|00003aa0| 20 76 6d 2d 6d 61 74 63 | 68 65 64 2d 68 65 61 64 | vm-matc|hed-head|
|00003ab0| 65 72 2d 73 74 61 72 74 | 20 76 6d 2d 6d 61 74 63 |er-start| vm-matc|
|00003ac0| 68 65 64 2d 68 65 61 64 | 65 72 2d 65 6e 64 20 22 |hed-head|er-end "|
|00003ad0| 20 22 20 69 6e 74 2d 74 | 6f 2d 73 74 72 69 6e 67 | " int-t|o-string|
|00003ae0| 20 22 5c 6e 22 5d 20 34 | 20 22 5c 0a 43 6f 6e 76 | "\n"] 4| "\.Conv|
|00003af0| 65 72 74 20 68 65 61 64 | 65 72 73 20 69 6e 20 74 |ert head|ers in t|
|00003b00| 68 65 20 6d 65 73 73 61 | 67 65 20 61 72 6f 75 6e |he messa|ge aroun|
|00003b10| 64 20 70 6f 69 6e 74 20 | 66 72 6f 6d 20 4f 4c 44 |d point |from OLD|
|00003b20| 2d 54 59 50 45 20 74 6f | 20 4e 45 57 2d 54 59 50 |-TYPE to| NEW-TYP|
|00003b30| 45 2e 0a 54 68 69 73 20 | 6d 65 61 6e 73 20 74 6f |E..This |means to|
|00003b40| 20 61 64 64 2f 64 65 6c | 65 74 65 20 43 6f 6e 74 | add/del|ete Cont|
|00003b50| 65 6e 74 2d 4c 65 6e 67 | 74 68 20 61 6e 64 20 61 |ent-Leng|th and a|
|00003b60| 6e 79 20 6f 74 68 65 72 | 0a 68 65 61 64 65 72 73 |ny other|.headers|
|00003b70| 20 72 65 6c 61 74 65 64 | 20 74 6f 20 66 6f 6c 64 | related| to fold|
|00003b80| 65 72 2d 74 79 70 65 20 | 61 73 20 6e 65 65 64 65 |er-type |as neede|
|00003b90| 64 20 66 6f 72 20 66 6f | 6c 64 65 72 20 74 79 70 |d for fo|lder typ|
|00003ba0| 65 0a 63 6f 6e 76 65 72 | 73 69 6f 6e 73 2e 20 20 |e.conver|sions. |
|00003bb0| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 65 78 |This fun|ction ex|
|00003bc0| 70 65 63 74 73 20 70 6f | 69 6e 74 20 74 6f 20 62 |pects po|int to b|
|00003bd0| 65 20 61 74 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |e at the| beginni|
|00003be0| 6e 67 0a 6f 66 20 74 68 | 65 20 68 65 61 64 65 72 |ng.of th|e header|
|00003bf0| 20 73 65 63 74 69 6f 6e | 20 6f 66 20 61 20 6d 65 | section| of a me|
|00003c00| 73 73 61 67 65 2c 20 61 | 6e 64 20 69 74 20 6f 6e |ssage, a|nd it on|
|00003c10| 6c 79 20 64 65 61 6c 73 | 20 77 69 74 68 20 74 68 |ly deals| with th|
|00003c20| 61 74 0a 6d 65 73 73 61 | 67 65 2e 22 5d 29 0a 28 |at.messa|ge."]).(|
|00003c30| 64 65 66 61 6c 69 61 73 | 20 27 76 6d 2d 6d 75 6e |defalias| 'vm-mun|
|00003c40| 67 65 2d 6d 65 73 73 61 | 67 65 2d 73 65 70 61 72 |ge-messa|ge-separ|
|00003c50| 61 74 6f 72 73 20 23 5b | 28 66 6f 6c 64 65 72 2d |ators #[|(folder-|
|00003c60| 74 79 70 65 20 73 74 61 | 72 74 20 65 6e 64 29 20 |type sta|rt end) |
|00003c70| 22 8a 08 19 08 c2 73 ad | 9c c3 20 0c c5 93 14 0e |".....s.|.. .....|
|00003c80| 06 62 88 c7 20 ab 8a 60 | 0c 57 ab 85 c8 63 88 aa |.b.. ..`|.W...c..|
|00003c90| 72 0c c5 89 93 2a 87 22 | 20 5b 66 6f 6c 64 65 72 |r....*."| [folder|
|00003ca0| 2d 74 79 70 65 20 76 6d | 2d 66 6f 6c 64 65 72 2d |-type vm|-folder-|
|00003cb0| 74 79 70 65 20 28 46 72 | 6f 6d 5f 20 46 72 6f 6d |type (Fr|om_ From|
|00003cc0| 5f 2d 77 69 74 68 2d 43 | 6f 6e 74 65 6e 74 2d 4c |_-with-C|ontent-L|
|00003cd0| 65 6e 67 74 68 20 6d 6d | 64 66 20 62 61 62 79 6c |ength mm|df babyl|
|00003ce0| 29 20 6d 61 6b 65 2d 6d | 61 72 6b 65 72 20 65 6e |) make-m|arker en|
|00003cf0| 64 20 6e 69 6c 20 73 74 | 61 72 74 20 76 6d 2d 66 |d nil st|art vm-f|
|00003d00| 69 6e 64 2d 6c 65 61 64 | 69 6e 67 2d 6d 65 73 73 |ind-lead|ing-mess|
|00003d10| 61 67 65 2d 73 65 70 61 | 72 61 74 6f 72 20 22 3e |age-sepa|rator ">|
|00003d20| 22 5d 20 33 20 22 5c 0a | 4d 75 6e 67 65 20 6d 65 |"] 3 "\.|Munge me|
|00003d30| 73 73 61 67 65 20 73 65 | 70 61 72 61 74 6f 72 73 |ssage se|parators|
|00003d40| 20 6f 66 20 46 4f 4c 44 | 45 52 2d 54 59 50 45 20 | of FOLD|ER-TYPE |
|00003d50| 66 6f 75 6e 64 20 62 65 | 74 77 65 65 6e 20 53 54 |found be|tween ST|
|00003d60| 41 52 54 20 61 6e 64 20 | 45 4e 44 2e 0a 54 68 69 |ART and |END..Thi|
|00003d70| 73 20 66 75 6e 63 74 69 | 6f 6e 20 69 73 20 75 73 |s functi|on is us|
|00003d80| 65 64 20 74 6f 20 65 6c | 69 6d 69 6e 61 74 65 20 |ed to el|iminate |
|00003d90| 6d 65 73 73 61 67 65 20 | 73 65 70 61 72 61 74 6f |message |separato|
|00003da0| 72 73 20 66 6f 72 20 61 | 20 70 61 72 74 69 63 75 |rs for a| particu|
|00003db0| 6c 61 72 0a 66 6f 6c 64 | 65 72 20 74 79 70 65 20 |lar.fold|er type |
|00003dc0| 74 68 61 74 20 68 61 70 | 70 65 6e 20 74 6f 20 6f |that hap|pen to o|
|00003dd0| 63 63 75 72 20 69 6e 20 | 61 20 6d 65 73 73 61 67 |ccur in |a messag|
|00003de0| 65 2e 20 20 5c 22 3e 5c | 22 20 69 73 20 70 72 65 |e. \">\|" is pre|
|00003df0| 70 65 6e 64 65 64 20 74 | 6f 20 73 75 63 68 0a 73 |pended t|o such.s|
|00003e00| 65 70 61 72 61 74 6f 72 | 73 2e 22 5d 29 0a 28 64 |eparator|s."]).(d|
|00003e10| 65 66 61 6c 69 61 73 20 | 27 76 6d 2d 63 6f 6d 70 |efalias |'vm-comp|
|00003e20| 61 74 69 62 6c 65 2d 66 | 6f 6c 64 65 72 2d 70 20 |atible-f|older-p |
|00003e30| 23 5b 28 66 69 6c 65 29 | 20 22 c0 09 21 1a 0b ad |#[(file)| "..!...|
|00003e40| 81 5c 6e 3f ae 83 0b 5c | 6e 61 29 87 22 20 5b 76 |.\n?...\|na)." [v|
|00003e50| 6d 2d 67 65 74 2d 66 6f | 6c 64 65 72 2d 74 79 70 |m-get-fo|lder-typ|
|00003e60| 65 20 66 69 6c 65 20 74 | 79 70 65 20 76 6d 2d 66 |e file t|ype vm-f|
|00003e70| 6f 6c 64 65 72 2d 74 79 | 70 65 5d 20 32 20 22 5c |older-ty|pe] 2 "\|
|00003e80| 0a 52 65 74 75 72 6e 20 | 6e 6f 6e 2d 6e 69 6c 20 |.Return |non-nil |
|00003e90| 69 66 20 46 49 4c 45 20 | 69 73 20 61 20 63 6f 6d |if FILE |is a com|
|00003ea0| 70 61 74 69 62 6c 65 20 | 66 6f 6c 64 65 72 20 77 |patible |folder w|
|00003eb0| 69 74 68 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ith the |current |
|00003ec0| 62 75 66 66 65 72 2e 0a | 54 68 65 20 63 75 72 72 |buffer..|The curr|
|00003ed0| 65 6e 74 20 66 6f 6c 64 | 65 72 20 6d 75 73 74 20 |ent fold|er must |
|00003ee0| 68 61 76 65 20 76 6d 2d | 66 6f 6c 64 65 72 2d 74 |have vm-|folder-t|
|00003ef0| 79 70 65 20 69 6e 69 74 | 69 61 6c 69 7a 65 64 2e |ype init|ialized.|
|00003f00| 0a 46 49 4c 45 20 69 73 | 20 63 6f 6d 70 61 74 69 |.FILE is| compati|
|00003f10| 62 6c 65 20 69 66 0a 20 | 20 2d 20 69 74 20 69 73 |ble if. | - it is|
|00003f20| 20 65 6d 70 74 79 0a 20 | 20 2d 20 74 68 65 20 63 | empty. | - the c|
|00003f30| 75 72 72 65 6e 74 20 66 | 6f 6c 64 65 72 20 69 73 |urrent f|older is|
|00003f40| 20 65 6d 70 74 79 0a 20 | 20 2d 20 74 68 65 20 74 | empty. | - the t|
|00003f50| 77 6f 20 66 6f 6c 64 65 | 72 20 74 79 70 65 73 20 |wo folde|r types |
|00003f60| 61 72 65 20 65 71 75 61 | 6c 22 5d 29 0a 28 64 65 |are equa|l"]).(de|
|00003f70| 66 61 6c 69 61 73 20 27 | 76 6d 2d 6c 65 61 64 69 |falias '|vm-leadi|
|00003f80| 6e 67 2d 6d 65 73 73 61 | 67 65 2d 73 65 70 61 72 |ng-messa|ge-separ|
|00003f90| 61 74 6f 72 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ator #[(|&optiona|
|00003fa0| 6c 20 66 6f 6c 64 65 72 | 2d 74 79 70 65 20 6d 65 |l folder|-type me|
|00003fb0| 73 73 61 67 65 20 66 6f | 72 2d 6f 74 68 65 72 2d |ssage fo|r-other-|
|00003fc0| 66 6f 6c 64 65 72 29 20 | 22 08 ae 81 09 89 1a c3 |folder) |".......|
|00003fd0| 73 ab 87 c4 c5 20 c6 51 | aa 9d 5c 6e c7 61 ab 83 |s.... .Q|..\n.a..|
|00003fe0| c8 aa 95 5c 6e c9 61 ad | 90 0e 5c 6e ab 8b cb cc |...\n.a.|..\n....|
|00003ff0| 0e 5c 6e 0e 0d 5c 22 ce | 51 aa 81 cf 29 87 22 20 |.\n..\".|Q...)." |
|00004000| 5b 66 6f 6c 64 65 72 2d | 74 79 70 65 20 76 6d 2d |[folder-|type vm-|
|00004010| 66 6f 6c 64 65 72 2d 74 | 79 70 65 20 74 79 70 65 |folder-t|ype type|
|00004020| 20 28 46 72 6f 6d 5f 20 | 46 72 6f 6d 5f 2d 77 69 | (From_ |From_-wi|
|00004030| 74 68 2d 43 6f 6e 74 65 | 6e 74 2d 4c 65 6e 67 74 |th-Conte|nt-Lengt|
|00004040| 68 29 20 22 46 72 6f 6d | 20 56 4d 20 22 20 63 75 |h) "From| VM " cu|
|00004050| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|00004060| 67 20 22 5c 6e 22 20 6d | 6d 64 66 20 22 01 01 01 |g "\n" m|mdf "...|
|00004070| 01 5c 6e 22 20 62 61 62 | 79 6c 20 6d 65 73 73 61 |.\n" bab|yl messa|
|00004080| 67 65 20 22 0c 5c 6e 30 | 2c 22 20 76 6d 2d 62 61 |ge ".\n0|," vm-ba|
|00004090| 62 79 6c 2d 61 74 74 72 | 69 62 75 74 65 73 2d 73 |byl-attr|ibutes-s|
|000040a0| 74 72 69 6e 67 20 66 6f | 72 2d 6f 74 68 65 72 2d |tring fo|r-other-|
|000040b0| 66 6f 6c 64 65 72 20 22 | 2c 5c 6e 2a 2a 2a 20 45 |folder "|,\n*** E|
|000040c0| 4f 4f 48 20 2a 2a 2a 5c | 6e 22 20 22 0c 5c 6e 30 |OOH ***\|n" ".\n0|
|000040d0| 2c 20 72 65 63 65 6e 74 | 2c 20 75 6e 73 65 65 6e |, recent|, unseen|
|000040e0| 2c 2c 5c 6e 2a 2a 2a 20 | 45 4f 4f 48 20 2a 2a 2a |,,\n*** |EOOH ***|
|000040f0| 5c 6e 22 5d 20 35 20 22 | 5c 0a 52 65 74 75 72 6e |\n"] 5 "|\.Return|
|00004100| 73 20 61 20 6c 65 61 64 | 69 6e 67 20 6d 65 73 73 |s a lead|ing mess|
|00004110| 61 67 65 20 73 65 70 61 | 72 61 74 6f 72 20 66 6f |age sepa|rator fo|
|00004120| 72 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 6f |r the cu|rrent fo|
|00004130| 6c 64 65 72 2e 0a 44 65 | 66 61 75 6c 74 73 20 74 |lder..De|faults t|
|00004140| 6f 20 72 65 74 75 72 6e | 69 6e 67 20 61 20 73 65 |o return|ing a se|
|00004150| 70 61 72 61 74 6f 72 20 | 66 6f 72 20 74 68 65 20 |parator |for the |
|00004160| 63 75 72 72 65 6e 74 20 | 66 6f 6c 64 65 72 20 74 |current |folder t|
|00004170| 79 70 65 2e 0a 0a 4f 70 | 74 69 6f 6e 61 6c 20 66 |ype...Op|tional f|
|00004180| 69 72 73 74 20 61 72 67 | 20 46 4f 4c 44 45 52 2d |irst arg| FOLDER-|
|00004190| 54 59 50 45 20 6d 65 61 | 6e 73 20 72 65 74 75 72 |TYPE mea|ns retur|
|000041a0| 6e 20 61 20 73 65 70 61 | 72 61 74 6f 72 20 66 6f |n a sepa|rator fo|
|000041b0| 72 20 74 68 61 74 0a 66 | 6f 6c 64 65 72 20 74 79 |r that.f|older ty|
|000041c0| 70 65 20 69 6e 73 74 65 | 61 64 2e 0a 0a 4f 70 74 |pe inste|ad...Opt|
|000041d0| 69 6f 6e 61 6c 20 73 65 | 63 6f 6e 64 20 61 72 67 |ional se|cond arg|
|000041e0| 20 4d 45 53 53 41 47 45 | 20 73 68 6f 75 6c 64 20 | MESSAGE| should |
|000041f0| 62 65 20 61 20 6d 65 73 | 73 61 67 65 20 73 74 72 |be a mes|sage str|
|00004200| 75 63 74 2e 20 20 54 68 | 69 73 20 69 73 20 75 73 |uct. Th|is is us|
|00004210| 65 64 0a 67 65 6e 65 72 | 61 74 69 6e 67 20 42 41 |ed.gener|ating BA|
|00004220| 42 59 4c 20 73 65 70 61 | 72 61 74 6f 72 73 2c 20 |BYL sepa|rators, |
|00004230| 62 65 63 61 75 73 65 20 | 74 68 65 79 20 63 6f 6e |because |they con|
|00004240| 74 61 69 6e 20 6d 65 73 | 73 61 67 65 20 61 74 74 |tain mes|sage att|
|00004250| 72 69 62 75 74 65 73 0a | 61 6e 64 20 6c 61 62 65 |ributes.|and labe|
|00004260| 6c 73 20 74 68 61 74 20 | 6d 75 73 74 20 6d 75 73 |ls that |must mus|
|00004270| 74 20 62 65 20 63 6f 70 | 69 65 64 20 66 72 6f 6d |t be cop|ied from|
|00004280| 20 74 68 65 20 6d 65 73 | 73 61 67 65 2e 0a 0a 4f | the mes|sage...O|
|00004290| 70 74 69 6f 6e 61 6c 20 | 74 68 69 72 64 20 61 72 |ptional |third ar|
|000042a0| 67 20 46 4f 52 2d 4f 54 | 48 45 52 2d 46 4f 4c 44 |g FOR-OT|HER-FOLD|
|000042b0| 45 52 20 6e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 |ER non-n|il means|
|000042c0| 20 74 68 61 74 20 74 68 | 69 73 20 73 65 70 61 72 | that th|is separ|
|000042d0| 61 74 6f 72 20 77 69 6c | 6c 0a 62 65 20 75 73 65 |ator wil|l.be use|
|000042e0| 64 20 61 20 60 66 6f 72 | 65 69 67 6e 27 20 66 6f |d a `for|eign' fo|
|000042f0| 6c 64 65 72 2e 20 20 54 | 68 69 73 20 6d 65 61 6e |lder. T|his mean|
|00004300| 73 20 74 68 61 74 20 74 | 68 65 20 60 64 65 6c 65 |s that t|he `dele|
|00004310| 74 65 64 27 0a 61 74 74 | 72 69 62 75 74 65 73 20 |ted'.att|ributes |
|00004320| 73 68 6f 75 6c 64 20 6e | 6f 74 20 62 65 20 63 6f |should n|ot be co|
|00004330| 70 69 65 64 20 66 6f 72 | 20 42 41 42 59 4c 20 66 |pied for| BABYL f|
|00004340| 6f 6c 64 65 72 73 2e 22 | 5d 29 0a 28 64 65 66 61 |olders."|]).(defa|
|00004350| 6c 69 61 73 20 27 76 6d | 2d 74 72 61 69 6c 69 6e |lias 'vm|-trailin|
|00004360| 67 2d 6d 65 73 73 61 67 | 65 2d 73 65 70 61 72 61 |g-messag|e-separa|
|00004370| 74 6f 72 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |tor #[(&|optional|
|00004380| 20 66 6f 6c 64 65 72 2d | 74 79 70 65 29 20 22 08 | folder-|type) ".|
|00004390| ae 81 09 89 1a c3 61 ab | 83 c4 aa 96 5c 6e c5 61 |......a.|....\n.a|
|000043a0| ab 83 c6 aa 8e 5c 6e c7 | 61 ab 83 c8 aa 86 5c 6e |.....\n.|a.....\n|
|000043b0| c9 61 ad 81 ca 29 87 22 | 20 5b 66 6f 6c 64 65 72 |.a...)."| [folder|
|000043c0| 2d 74 79 70 65 20 76 6d | 2d 66 6f 6c 64 65 72 2d |-type vm|-folder-|
|000043d0| 74 79 70 65 20 74 79 70 | 65 20 46 72 6f 6d 5f 20 |type typ|e From_ |
|000043e0| 22 5c 6e 22 20 46 72 6f | 6d 5f 2d 77 69 74 68 2d |"\n" Fro|m_-with-|
|000043f0| 43 6f 6e 74 65 6e 74 2d | 4c 65 6e 67 74 68 20 22 |Content-|Length "|
|00004400| 22 20 6d 6d 64 66 20 22 | 01 01 01 01 5c 6e 22 20 |" mmdf "|....\n" |
|00004410| 62 61 62 79 6c 20 22 1f | 22 5d 20 33 20 22 5c 0a |babyl ".|"] 3 "\.|
|00004420| 52 65 74 75 72 6e 73 20 | 61 20 6c 65 61 64 69 6e |Returns |a leadin|
|00004430| 67 20 6d 65 73 73 61 67 | 65 20 73 65 70 61 72 61 |g messag|e separa|
|00004440| 74 6f 72 20 66 6f 72 20 | 74 68 65 20 63 75 72 72 |tor for |the curr|
|00004450| 65 6e 74 20 66 6f 6c 64 | 65 72 2e 0a 44 65 66 61 |ent fold|er..Defa|
|00004460| 75 6c 74 73 20 74 6f 20 | 72 65 74 75 72 6e 69 6e |ults to |returnin|
|00004470| 67 20 61 20 73 65 70 61 | 72 61 74 6f 72 20 66 6f |g a sepa|rator fo|
|00004480| 72 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 6f |r the cu|rrent fo|
|00004490| 6c 64 65 72 20 74 79 70 | 65 2e 0a 0a 4f 70 74 69 |lder typ|e...Opti|
|000044a0| 6f 6e 61 6c 20 66 69 72 | 73 74 20 61 72 67 20 46 |onal fir|st arg F|
|000044b0| 4f 4c 44 45 52 2d 54 59 | 50 45 20 6d 65 61 6e 73 |OLDER-TY|PE means|
|000044c0| 20 72 65 74 75 72 6e 20 | 61 20 73 65 70 61 72 61 | return |a separa|
|000044d0| 74 6f 72 20 66 6f 72 20 | 74 68 61 74 0a 66 6f 6c |tor for |that.fol|
|000044e0| 64 65 72 20 74 79 70 65 | 20 69 6e 73 74 65 61 64 |der type| instead|
|000044f0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00004500| 76 6d 2d 66 6f 6c 64 65 | 72 2d 68 65 61 64 65 72 |vm-folde|r-header|
|00004510| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 6f | #[(&opt|ional fo|
|00004520| 6c 64 65 72 2d 74 79 70 | 65 20 6c 61 62 65 6c 2d |lder-typ|e label-|
|00004530| 6f 62 61 72 72 61 79 29 | 20 22 08 ae 81 09 89 1a |obarray)| "......|
|00004540| c3 61 ab 9d c4 1d 0e 06 | ab 86 c7 c8 0e 06 5c 22 |.a......|......\"|
|00004550| 88 0d ab 8a c9 ca cb cc | 0d cd 23 5c 22 aa 81 ce |........|..#\"...|
|00004560| 29 aa 81 cf 29 87 22 20 | 5b 66 6f 6c 64 65 72 2d |)...)." |[folder-|
|00004570| 74 79 70 65 20 76 6d 2d | 66 6f 6c 64 65 72 2d 74 |type vm-|folder-t|
|00004580| 79 70 65 20 74 79 70 65 | 20 62 61 62 79 6c 20 6e |ype type| babyl n|
|00004590| 69 6c 20 6c 69 73 74 20 | 6c 61 62 65 6c 2d 6f 62 |il list |label-ob|
|000045a0| 61 72 72 61 79 20 6d 61 | 70 61 74 6f 6d 73 20 23 |array ma|patoms #|
|000045b0| 5b 28 73 79 6d 29 20 22 | 08 09 42 89 11 87 22 20 |[(sym) "|..B..." |
|000045c0| 5b 73 79 6d 20 6c 69 73 | 74 5d 20 32 5d 20 66 6f |[sym lis|t] 2] fo|
|000045d0| 72 6d 61 74 20 22 42 41 | 42 59 4c 20 4f 50 54 49 |rmat "BA|BYL OPTI|
|000045e0| 4f 4e 53 3a 5c 6e 56 65 | 72 73 69 6f 6e 3a 20 35 |ONS:\nVe|rsion: 5|
|000045f0| 5c 6e 4c 61 62 65 6c 73 | 3a 20 25 73 5c 6e 1f 22 |\nLabels|: %s\n."|
|00004600| 20 6d 61 70 63 6f 6e 63 | 61 74 20 73 79 6d 62 6f | mapconc|at symbo|
|00004610| 6c 2d 6e 61 6d 65 20 22 | 2c 20 22 20 22 42 41 42 |l-name "|, " "BAB|
|00004620| 59 4c 20 4f 50 54 49 4f | 4e 53 3a 5c 6e 56 65 72 |YL OPTIO|NS:\nVer|
|00004630| 73 69 6f 6e 3a 20 35 5c | 6e 1f 22 20 22 22 5d 20 |sion: 5\|n." ""] |
|00004640| 37 20 22 5c 0a 52 65 74 | 75 72 6e 73 20 61 20 66 |7 "\.Ret|urns a f|
|00004650| 6f 6c 64 65 72 20 68 65 | 61 64 65 72 20 66 6f 72 |older he|ader for|
|00004660| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 66 6f 6c | the cur|rent fol|
|00004670| 64 65 72 2e 0a 44 65 66 | 61 75 6c 74 73 20 74 6f |der..Def|aults to|
|00004680| 20 72 65 74 75 72 6e 69 | 6e 67 20 61 20 66 6f 6c | returni|ng a fol|
|00004690| 64 65 72 20 68 65 61 64 | 65 72 20 66 6f 72 20 74 |der head|er for t|
|000046a0| 68 65 20 63 75 72 72 65 | 6e 74 20 66 6f 6c 64 65 |he curre|nt folde|
|000046b0| 72 20 74 79 70 65 2e 0a | 0a 4f 70 74 69 6f 6e 61 |r type..|.Optiona|
|000046c0| 6c 20 66 69 72 73 74 20 | 61 72 67 20 46 4f 4c 44 |l first |arg FOLD|
|000046d0| 45 52 2d 54 59 50 45 20 | 6d 65 61 6e 73 20 72 65 |ER-TYPE |means re|
|000046e0| 74 75 72 6e 20 61 20 66 | 6f 6c 64 65 72 20 68 65 |turn a f|older he|
|000046f0| 61 64 65 72 20 66 6f 72 | 20 74 68 61 74 0a 66 6f |ader for| that.fo|
|00004700| 6c 64 65 72 20 74 79 70 | 65 20 69 6e 73 74 65 61 |lder typ|e instea|
|00004710| 64 2e 0a 0a 4f 70 74 69 | 6f 6e 61 6c 20 73 65 63 |d...Opti|onal sec|
|00004720| 6f 6e 64 20 61 72 67 20 | 4c 41 42 45 4c 2d 4f 42 |ond arg |LABEL-OB|
|00004730| 41 52 52 41 59 20 73 68 | 6f 75 6c 64 20 62 65 20 |ARRAY sh|ould be |
|00004740| 61 6e 20 6f 62 61 72 72 | 61 79 20 6f 66 20 6c 61 |an obarr|ay of la|
|00004750| 62 65 6c 73 0a 74 68 61 | 74 20 68 61 76 65 20 62 |bels.tha|t have b|
|00004760| 65 65 6e 20 75 73 65 64 | 20 69 6e 20 74 68 69 73 |een used| in this|
|00004770| 20 66 6f 6c 64 65 72 2e | 20 20 54 68 69 73 20 69 | folder.| This i|
|00004780| 73 20 75 73 65 64 20 66 | 6f 72 20 42 41 42 59 4c |s used f|or BABYL|
|00004790| 20 66 6f 6c 64 65 72 73 | 2e 22 5d 29 0a 28 64 65 | folders|."]).(de|
|000047a0| 66 61 6c 69 61 73 20 27 | 76 6d 2d 66 69 6e 64 2d |falias '|vm-find-|
|000047b0| 6c 65 61 64 69 6e 67 2d | 6d 65 73 73 61 67 65 2d |leading-|message-|
|000047c0| 73 65 70 61 72 61 74 6f | 72 20 23 5b 6e 69 6c 20 |separato|r #[nil |
|000047d0| 22 08 c1 61 ab 8d c2 c3 | c4 1d 1e 06 1e 07 c8 c9 |"..a....|........|
|000047e0| 8d 2b 87 08 ca 61 ab 94 | cb c4 1d 1e 07 cc 0e 07 |.+...a..|........|
|000047f0| c4 cd 23 ad 85 ce 95 62 | 88 cf 2a 87 08 d0 61 ab |..#....b|..*...a.|
|00004800| 94 d1 c4 1d 1e 07 cc 0e | 07 c4 cd 23 ad 85 d2 94 |........|...#....|
|00004810| 62 88 cf 2a 87 08 d3 61 | ad 89 d4 c4 1d 1e 07 c8 |b..*...a|........|
|00004820| d5 8d 2a 87 22 20 5b 76 | 6d 2d 66 6f 6c 64 65 72 |..*." [v|m-folder|
|00004830| 2d 74 79 70 65 20 46 72 | 6f 6d 5f 20 22 5e 46 72 |-type Fr|om_ "^Fr|
|00004840| 6f 6d 20 22 20 22 5e 3e | 46 72 6f 6d 20 22 20 6e |om " "^>|From " n|
|00004850| 69 6c 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |il case-|fold-sea|
|00004860| 72 63 68 20 72 65 67 32 | 20 72 65 67 31 20 64 6f |rch reg2| reg1 do|
|00004870| 6e 65 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |ne (byte|-code ".|
|00004880| 09 c2 c3 23 ab a2 c4 94 | 62 88 8a c5 79 c4 55 ad |...#....|b...y.U.|
|00004890| 88 c6 20 ae 84 c7 0e 08 | 21 29 ab 87 c9 ca cb 5c |.. .....|!).....\|
|000048a0| 22 88 aa 5c 5c c5 75 88 | aa 57 c2 87 22 20 5b 72 |"..\\.u.|.W.." [r|
|000048b0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000048c0| 20 72 65 67 31 20 6e 69 | 6c 20 6e 6f 2d 65 72 72 | reg1 ni|l no-err|
|000048d0| 6f 72 20 30 20 31 20 76 | 6d 2d 6d 61 74 63 68 2d |or 0 1 v|m-match-|
|000048e0| 68 65 61 64 65 72 20 6c | 6f 6f 6b 69 6e 67 2d 61 |header l|ooking-a|
|000048f0| 74 20 72 65 67 32 20 74 | 68 72 6f 77 20 64 6f 6e |t reg2 t|hrow don|
|00004900| 65 20 74 5d 20 34 29 20 | 46 72 6f 6d 5f 2d 77 69 |e t] 4) |From_-wi|
|00004910| 74 68 2d 43 6f 6e 74 65 | 6e 74 2d 4c 65 6e 67 74 |th-Conte|nt-Lengt|
|00004920| 68 20 22 5c 5c 28 5e 5c | 5c 7c 5c 6e 2b 5c 5c 29 |h "\\(^\|\|\n+\\)|
|00004930| 46 72 6f 6d 20 22 20 72 | 65 2d 73 65 61 72 63 68 |From " r|e-search|
|00004940| 2d 66 6f 72 77 61 72 64 | 20 6e 6f 2d 65 72 72 6f |-forward| no-erro|
|00004950| 72 20 31 20 74 20 6d 6d | 64 66 20 22 5e 01 01 01 |r 1 t mm|df "^...|
|00004960| 01 22 20 30 20 62 61 62 | 79 6c 20 22 0c 5c 6e 5b |." 0 bab|yl ".\n[|
|00004970| 30 31 5d 2c 22 20 28 62 | 79 74 65 2d 63 6f 64 65 |01]," (b|yte-code|
|00004980| 20 22 c0 09 c2 c3 23 ab | 98 c4 94 62 88 6f ac 8c | "....#.|...b.o..|
|00004990| 68 c5 55 ab 87 c6 c7 c8 | 5c 22 88 aa 66 c9 75 88 |h.U.....|\"..f.u.|
|000049a0| aa 61 c2 87 22 20 5b 72 | 65 2d 73 65 61 72 63 68 |.a.." [r|e-search|
|000049b0| 2d 66 6f 72 77 61 72 64 | 20 72 65 67 31 20 6e 69 |-forward| reg1 ni|
|000049c0| 6c 20 6e 6f 2d 65 72 72 | 6f 72 20 30 20 3f 5c 5e |l no-err|or 0 ?\^|
|000049d0| 5f 20 74 68 72 6f 77 20 | 64 6f 6e 65 20 74 20 31 |_ throw |done t 1|
|000049e0| 5d 20 34 29 5d 20 34 20 | 22 5c 0a 46 69 6e 64 20 |] 4)] 4 |"\.Find |
|000049f0| 74 68 65 20 6e 65 78 74 | 20 6c 65 61 64 69 6e 67 |the next| leading|
|00004a00| 20 6d 65 73 73 61 67 65 | 20 73 65 70 61 72 61 74 | message| separat|
|00004a10| 6f 72 20 69 6e 20 61 20 | 66 6f 6c 64 65 72 2e 0a |or in a |folder..|
|00004a20| 52 65 74 75 72 6e 73 20 | 6e 6f 6e 2d 6e 69 6c 20 |Returns |non-nil |
|00004a30| 69 66 20 74 68 65 20 73 | 65 70 61 72 61 74 6f 72 |if the s|eparator|
|00004a40| 20 69 73 20 66 6f 75 6e | 64 2c 20 6e 69 6c 20 6f | is foun|d, nil o|
|00004a50| 74 68 65 72 77 69 73 65 | 2e 22 5d 29 0a 28 64 65 |therwise|."]).(de|
|00004a60| 66 61 6c 69 61 73 20 27 | 76 6d 2d 66 69 6e 64 2d |falias '|vm-find-|
|00004a70| 74 72 61 69 6c 69 6e 67 | 2d 6d 65 73 73 61 67 65 |trailing|-message|
|00004a80| 2d 73 65 70 61 72 61 74 | 6f 72 20 23 5b 6e 69 6c |-separat|or #[nil|
|00004a90| 20 22 08 c1 61 ab 86 c2 | 20 88 c3 75 87 08 c4 61 | "..a...| ..u...a|
|00004aa0| ab e2 c5 c6 60 c6 1e 07 | 1e 08 1e 09 1e 5c 6e cb |....`...|.....\n.|
|00004ab0| 1e 07 cc 0e 0d c6 cb 23 | 29 ab b0 ce 94 ac ac cf |.......#|).......|
|00004ac0| 94 62 88 d0 0e 11 21 ab | a2 d2 d3 20 21 16 09 d4 |.b....!.|... !...|
|00004ad0| d5 c6 cf 23 ab 91 64 60 | 5a 0e 09 59 ab 86 0e 09 |...#..d`|Z..Y....|
|00004ae0| 75 88 aa 83 64 62 88 d6 | c6 77 88 6d ae 84 d7 0e |u...db..|.w.m....|
|00004af0| 5c 6e 21 3f ad 8e 0e 08 | 62 88 cc 0e 5c 6e c6 cf |\n!?....|b...\n..|
|00004b00| 23 ad 82 d8 75 2c 87 08 | d9 61 ab 83 c2 20 87 08 |#...u,..|.a... ..|
|00004b10| da 61 ad 85 c2 20 88 c3 | 75 87 22 20 5b 76 6d 2d |.a... ..|u." [vm-|
|00004b20| 66 6f 6c 64 65 72 2d 74 | 79 70 65 20 46 72 6f 6d |folder-t|ype From|
|00004b30| 5f 20 76 6d 2d 66 69 6e | 64 2d 6c 65 61 64 69 6e |_ vm-fin|d-leadin|
|00004b40| 67 2d 6d 65 73 73 61 67 | 65 2d 73 65 70 61 72 61 |g-messag|e-separa|
|00004b50| 74 6f 72 20 2d 31 20 46 | 72 6f 6d 5f 2d 77 69 74 |tor -1 F|rom_-wit|
|00004b60| 68 2d 43 6f 6e 74 65 6e | 74 2d 4c 65 6e 67 74 68 |h-Conten|t-Length|
|00004b70| 20 22 5e 46 72 6f 6d 20 | 22 20 6e 69 6c 20 63 61 | "^From |" nil ca|
|00004b80| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 73 |se-fold-|search s|
|00004b90| 74 61 72 74 2d 70 6f 69 | 6e 74 20 63 6f 6e 74 65 |tart-poi|nt conte|
|00004ba0| 6e 74 2d 6c 65 6e 67 74 | 68 20 72 65 67 31 20 74 |nt-lengt|h reg1 t|
|00004bb0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00004bc0| 72 64 20 76 6d 2d 63 6f | 6e 74 65 6e 74 2d 6c 65 |rd vm-co|ntent-le|
|00004bd0| 6e 67 74 68 2d 73 65 61 | 72 63 68 2d 72 65 67 65 |ngth-sea|rch-rege|
|00004be0| 78 70 20 31 20 30 20 76 | 6d 2d 6d 61 74 63 68 2d |xp 1 0 v|m-match-|
|00004bf0| 68 65 61 64 65 72 20 76 | 6d 2d 63 6f 6e 74 65 6e |header v|m-conten|
|00004c00| 74 2d 6c 65 6e 67 74 68 | 2d 68 65 61 64 65 72 20 |t-length|-header |
|00004c10| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 20 76 6d |string-t|o-int vm|
|00004c20| 2d 6d 61 74 63 68 65 64 | 2d 68 65 61 64 65 72 2d |-matched|-header-|
|00004c30| 63 6f 6e 74 65 6e 74 73 | 20 73 65 61 72 63 68 2d |contents| search-|
|00004c40| 66 6f 72 77 61 72 64 20 | 22 5c 6e 5c 6e 22 20 22 |forward |"\n\n" "|
|00004c50| 5c 6e 22 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 2d |\n" look|ing-at -|
|00004c60| 35 20 6d 6d 64 66 20 62 | 61 62 79 6c 5d 20 34 20 |5 mmdf b|abyl] 4 |
|00004c70| 22 5c 0a 46 69 6e 64 20 | 74 68 65 20 6e 65 78 74 |"\.Find |the next|
|00004c80| 20 74 72 61 69 6c 69 6e | 67 20 6d 65 73 73 61 67 | trailin|g messag|
|00004c90| 65 20 73 65 70 61 72 61 | 74 6f 72 20 69 6e 20 61 |e separa|tor in a|
|00004ca0| 20 66 6f 6c 64 65 72 2e | 22 5d 29 0a 28 64 65 66 | folder.|"]).(def|
|00004cb0| 61 6c 69 61 73 20 27 76 | 6d 2d 73 6b 69 70 2d 70 |alias 'v|m-skip-p|
|00004cc0| 61 73 74 2d 6c 65 61 64 | 69 6e 67 2d 6d 65 73 73 |ast-lead|ing-mess|
|00004cd0| 61 67 65 2d 73 65 70 61 | 72 61 74 6f 72 20 23 5b |age-sepa|rator #[|
|00004ce0| 6e 69 6c 20 22 08 c1 73 | ab 93 c2 c3 1c 1d c6 79 |nil "..s|.......y|
|00004cf0| 88 c7 0d 21 ad 85 c6 79 | 88 aa 76 2a 87 08 c8 61 |...!...y|..v*...a|
|00004d00| ab 93 c9 75 88 c2 c3 1c | 1d c7 0d 21 ad 85 c6 79 |...u....|...!...y|
|00004d10| 88 aa 76 2a 87 08 ca 61 | ad 85 cb cc c3 cd 23 87 |..v*...a|......#.|
|00004d20| 22 20 5b 76 6d 2d 66 6f | 6c 64 65 72 2d 74 79 70 |" [vm-fo|lder-typ|
|00004d30| 65 20 28 46 72 6f 6d 5f | 20 46 72 6f 6d 5f 2d 77 |e (From_| From_-w|
|00004d40| 69 74 68 2d 43 6f 6e 74 | 65 6e 74 2d 4c 65 6e 67 |ith-Cont|ent-Leng|
|00004d50| 74 68 29 20 22 5e 3e 46 | 72 6f 6d 20 22 20 6e 69 |th) "^>F|rom " ni|
|00004d60| 6c 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |l case-f|old-sear|
|00004d70| 63 68 20 72 65 67 31 20 | 31 20 6c 6f 6f 6b 69 6e |ch reg1 |1 lookin|
|00004d80| 67 2d 61 74 20 6d 6d 64 | 66 20 35 20 62 61 62 79 |g-at mmd|f 5 baby|
|00004d90| 6c 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |l search|-forward|
|00004da0| 20 22 5c 6e 2a 2a 2a 20 | 45 4f 4f 48 20 2a 2a 2a | "\n*** |EOOH ***|
|00004db0| 5c 6e 22 20 30 5d 20 34 | 20 22 5c 0a 4d 6f 76 65 |\n" 0] 4| "\.Move|
|00004dc0| 20 70 6f 69 6e 74 20 70 | 61 73 74 20 61 20 6c 65 | point p|ast a le|
|00004dd0| 61 64 69 6e 67 20 6d 65 | 73 73 61 67 65 20 73 65 |ading me|ssage se|
|00004de0| 70 61 72 61 74 6f 72 20 | 61 74 20 70 6f 69 6e 74 |parator |at point|
|00004df0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00004e00| 76 6d 2d 73 6b 69 70 2d | 70 61 73 74 2d 74 72 61 |vm-skip-|past-tra|
|00004e10| 69 6c 69 6e 67 2d 6d 65 | 73 73 61 67 65 2d 73 65 |iling-me|ssage-se|
|00004e20| 70 61 72 61 74 6f 72 20 | 23 5b 6e 69 6c 20 22 08 |parator |#[nil ".|
|00004e30| c1 61 ab 83 c2 75 87 08 | c3 61 ae 8f 08 c4 61 ab |.a...u..|.a....a.|
|00004e40| 83 c5 75 87 08 c6 61 ad | 82 c2 75 87 22 20 5b 76 |..u...a.|..u." [v|
|00004e50| 6d 2d 66 6f 6c 64 65 72 | 2d 74 79 70 65 20 46 72 |m-folder|-type Fr|
|00004e60| 6f 6d 5f 20 31 20 46 72 | 6f 6d 5f 2d 77 69 74 68 |om_ 1 Fr|om_-with|
|00004e70| 2d 43 6f 6e 74 65 6e 74 | 2d 4c 65 6e 67 74 68 20 |-Content|-Length |
|00004e80| 6d 6d 64 66 20 35 20 62 | 61 62 79 6c 5d 20 32 20 |mmdf 5 b|abyl] 2 |
|00004e90| 22 5c 0a 4d 6f 76 65 20 | 70 6f 69 6e 74 20 70 61 |"\.Move |point pa|
|00004ea0| 73 74 20 61 20 74 72 61 | 69 6c 69 6e 67 20 6d 65 |st a tra|iling me|
|00004eb0| 73 73 61 67 65 20 73 65 | 70 61 72 61 74 6f 72 20 |ssage se|parator |
|00004ec0| 61 74 20 70 6f 69 6e 74 | 2e 22 5d 29 0a 28 64 65 |at point|."]).(de|
|00004ed0| 66 61 6c 69 61 73 20 27 | 76 6d 2d 62 75 69 6c 64 |falias '|vm-build|
|00004ee0| 2d 6d 65 73 73 61 67 65 | 2d 6c 69 73 74 20 23 5b |-message|-list #[|
|00004ef0| 6e 69 6c 20 22 c0 20 11 | 8a c2 c3 c4 c5 20 21 c6 |nil ". .|..... !.|
|00004f00| a6 c7 5c 5c c2 89 1e 08 | 1e 09 1e 5c 6e 1e 0b 1e |..\\....|...\n...|
|00004f10| 0c 0e 0d ab b8 0e 0d 65 | 1e 0e 89 1e 0f ab a7 0e |.......e|........|
|00004f20| 0e 0e 0f 40 c3 48 d0 48 | 57 ab 89 0e 0f 40 c3 48 |...@.H.H|W....@.H|
|00004f30| d0 48 16 0e 0e 0f 41 3a | ac 84 0e 0f 16 0c 0e 0f |.H....A:|........|
|00004f40| 41 89 16 0f ac 59 0e 0e | 62 88 2a aa 9e 65 62 88 |A....Y..|b.*..eb.|
|00004f50| 09 d1 73 ab 93 67 d2 55 | ab 8e c9 d3 0e 14 ae 82 |..s..g.U|........|
|00004f60| d5 20 5c 22 88 d6 d7 21 | 88 d8 20 88 60 16 08 d9 |. \"...!|.. .`...|
|00004f70| 20 83 fd 00 da 20 89 16 | 09 db 48 dc 09 49 88 0e | .... ..|..H..I..|
|00004f80| 09 c3 48 c3 dd 20 60 c2 | 93 49 88 de 20 88 0e 09 |..H.. `.|.I.. ...|
|00004f90| c3 48 db dd 20 60 c2 93 | 49 88 df 20 88 0e 09 c3 |.H.. `..|I.. ....|
|00004fa0| 48 e0 dd 20 60 c2 93 49 | 88 e1 20 88 60 16 08 0e |H.. `..I|.. .`...|
|00004fb0| 09 c3 48 d0 dd 20 60 c2 | 93 49 88 0e 09 db 48 e2 |..H.. `.|.I....H.|
|00004fc0| 48 0e 0c 4c 88 0e 0c ac | 8a 0e 09 43 89 16 0d 16 |H..L....|...C....|
|00004fd0| 0c aa 8c 0e 0c 0e 09 43 | a1 88 0e 0c 41 16 0c 0e |.......C|....A...|
|00004fe0| 0b 54 89 16 0b 0e 5c 6e | a6 c3 55 ab 03 c9 e3 0e |.T....\n|..U.....|
|00004ff0| 0b 5c 22 88 82 77 00 0e | 0b 0e 5c 6e 59 ab 84 c9 |.\"..w..|..\nY...|
|00005000| e4 21 88 0e 08 64 55 3f | ad 93 09 e5 61 3f ad 8d |.!...dU?|....a?..|
|00005010| c9 e6 0e 14 ae 82 d5 20 | 5c 22 88 d6 d7 21 2e 06 |....... |\"...!..|
|00005020| 87 22 20 5b 76 6d 2d 67 | 65 74 2d 66 6f 6c 64 65 |." [vm-g|et-folde|
|00005030| 72 2d 74 79 70 65 20 76 | 6d 2d 66 6f 6c 64 65 72 |r-type v|m-folder|
|00005040| 2d 74 79 70 65 20 6e 69 | 6c 20 30 20 76 6d 2d 61 |-type ni|l 0 vm-a|
|00005050| 62 73 20 72 61 6e 64 6f | 6d 20 31 31 20 32 35 20 |bs rando|m 11 25 |
|00005060| 6c 61 73 74 2d 65 6e 64 | 20 6d 65 73 73 61 67 65 |last-end| message|
|00005070| 20 6d 6f 64 75 6c 75 73 | 20 6e 20 74 61 69 6c 2d | modulus| n tail-|
|00005080| 63 6f 6e 73 20 76 6d 2d | 6d 65 73 73 61 67 65 2d |cons vm-|message-|
|00005090| 6c 69 73 74 20 65 6e 64 | 20 6d 70 20 35 20 28 46 |list end| mp 5 (F|
|000050a0| 72 6f 6d 5f 20 46 72 6f | 6d 5f 2d 77 69 74 68 2d |rom_ Fro|m_-with-|
|000050b0| 43 6f 6e 74 65 6e 74 2d | 4c 65 6e 67 74 68 29 20 |Content-|Length) |
|000050c0| 3f 5c 6e 20 22 57 61 72 | 6e 69 6e 67 3a 20 6e 65 |?\n "War|ning: ne|
|000050d0| 77 6c 69 6e 65 20 66 6f | 75 6e 64 20 61 74 20 62 |wline fo|und at b|
|000050e0| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 66 6f 6c 64 |eginning| of fold|
|000050f0| 65 72 2c 20 25 73 22 20 | 62 75 66 66 65 72 2d 66 |er, %s" |buffer-f|
|00005100| 69 6c 65 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |ile-name| buffer-|
|00005110| 6e 61 6d 65 20 73 6c 65 | 65 70 2d 66 6f 72 20 32 |name sle|ep-for 2|
|00005120| 20 76 6d 2d 73 6b 69 70 | 2d 70 61 73 74 2d 66 6f | vm-skip|-past-fo|
|00005130| 6c 64 65 72 2d 68 65 61 | 64 65 72 20 76 6d 2d 66 |lder-hea|der vm-f|
|00005140| 69 6e 64 2d 6c 65 61 64 | 69 6e 67 2d 6d 65 73 73 |ind-lead|ing-mess|
|00005150| 61 67 65 2d 73 65 70 61 | 72 61 74 6f 72 20 76 6d |age-sepa|rator vm|
|00005160| 2d 6d 61 6b 65 2d 6d 65 | 73 73 61 67 65 20 31 20 |-make-me|ssage 1 |
|00005170| 37 20 6d 61 6b 65 2d 6d | 61 72 6b 65 72 20 76 6d |7 make-m|arker vm|
|00005180| 2d 73 6b 69 70 2d 70 61 | 73 74 2d 6c 65 61 64 69 |-skip-pa|st-leadi|
|00005190| 6e 67 2d 6d 65 73 73 61 | 67 65 2d 73 65 70 61 72 |ng-messa|ge-separ|
|000051a0| 61 74 6f 72 20 76 6d 2d | 66 69 6e 64 2d 74 72 61 |ator vm-|find-tra|
|000051b0| 69 6c 69 6e 67 2d 6d 65 | 73 73 61 67 65 2d 73 65 |iling-me|ssage-se|
|000051c0| 70 61 72 61 74 6f 72 20 | 34 20 76 6d 2d 73 6b 69 |parator |4 vm-ski|
|000051d0| 70 2d 70 61 73 74 2d 74 | 72 61 69 6c 69 6e 67 2d |p-past-t|railing-|
|000051e0| 6d 65 73 73 61 67 65 2d | 73 65 70 61 72 61 74 6f |message-|separato|
|000051f0| 72 20 36 20 22 50 61 72 | 73 69 6e 67 20 6d 65 73 |r 6 "Par|sing mes|
|00005200| 73 61 67 65 73 2e 2e 2e | 20 25 64 22 20 22 50 61 |sages...| %d" "Pa|
|00005210| 72 73 69 6e 67 20 6d 65 | 73 73 61 67 65 73 2e 2e |rsing me|ssages..|
|00005220| 2e 20 64 6f 6e 65 22 20 | 75 6e 6b 6e 6f 77 6e 20 |. done" |unknown |
|00005230| 22 57 61 72 6e 69 6e 67 | 3a 20 67 61 72 62 61 67 |"Warning|: garbag|
|00005240| 65 20 66 6f 75 6e 64 20 | 61 74 20 65 6e 64 20 6f |e found |at end o|
|00005250| 66 20 66 6f 6c 64 65 72 | 2c 20 25 73 22 5d 20 36 |f folder|, %s"] 6|
|00005260| 20 22 5c 0a 42 75 69 6c | 64 20 61 20 63 68 61 69 | "\.Buil|d a chai|
|00005270| 6e 20 6f 66 20 6d 65 73 | 73 61 67 65 20 73 74 72 |n of mes|sage str|
|00005280| 75 63 74 75 72 65 73 2c | 20 73 74 6f 72 65 64 20 |uctures,| stored |
|00005290| 74 68 65 6d 20 69 6e 20 | 76 6d 2d 6d 65 73 73 61 |them in |vm-messa|
|000052a0| 67 65 2d 6c 69 73 74 2e | 0a 46 69 6e 64 73 20 74 |ge-list.|.Finds t|
|000052b0| 68 65 20 73 74 61 72 74 | 20 61 6e 64 20 65 6e 64 |he start| and end|
|000052c0| 20 6f 66 20 65 61 63 68 | 20 6d 65 73 73 61 67 65 | of each| message|
|000052d0| 20 61 6e 64 20 66 69 6c | 6c 73 20 69 6e 20 74 68 | and fil|ls in th|
|000052e0| 65 20 72 65 6c 65 76 61 | 6e 74 0a 66 69 65 6c 64 |e releva|nt.field|
|000052f0| 73 20 69 6e 20 74 68 65 | 20 6d 65 73 73 61 67 65 |s in the| message|
|00005300| 20 73 74 72 75 63 74 75 | 72 65 73 2e 0a 0a 41 6c | structu|res...Al|
|00005310| 73 6f 20 66 69 6e 64 73 | 20 74 68 65 20 62 65 67 |so finds| the beg|
|00005320| 69 6e 6e 69 6e 67 20 6f | 66 20 74 68 65 20 68 65 |inning o|f the he|
|00005330| 61 64 65 72 20 73 65 63 | 74 69 6f 6e 20 61 6e 64 |ader sec|tion and|
|00005340| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 74 68 65 0a | the end| of the.|
|00005350| 74 65 78 74 20 73 65 63 | 74 69 6f 6e 20 61 6e 64 |text sec|tion and|
|00005360| 20 66 69 6c 6c 73 20 69 | 6e 20 74 68 65 73 65 20 | fills i|n these |
|00005370| 66 69 65 6c 64 73 20 69 | 6e 20 74 68 65 20 6d 65 |fields i|n the me|
|00005380| 73 73 61 67 65 20 73 74 | 72 75 63 74 75 72 65 73 |ssage st|ructures|
|00005390| 2e 0a 0a 76 6d 2d 74 65 | 78 74 2d 6f 66 20 61 6e |...vm-te|xt-of an|
|000053a0| 64 20 76 6d 2d 76 68 65 | 61 64 65 72 73 2d 6f 66 |d vm-vhe|aders-of|
|000053b0| 20 66 69 65 6c 64 20 64 | 6f 6e 27 74 20 67 65 74 | field d|on't get|
|000053c0| 20 66 69 6c 6c 65 64 20 | 75 6e 74 69 6c 20 74 68 | filled |until th|
|000053d0| 65 79 0a 61 72 65 20 6e | 65 65 64 65 64 2e 0a 0a |ey.are n|eeded...|
|000053e0| 49 66 20 76 6d 2d 6d 65 | 73 73 61 67 65 2d 6c 69 |If vm-me|ssage-li|
|000053f0| 73 74 20 61 6c 72 65 61 | 64 79 20 63 6f 6e 74 61 |st alrea|dy conta|
|00005400| 69 6e 65 64 20 6d 65 73 | 73 61 67 65 73 2c 20 74 |ined mes|sages, t|
|00005410| 68 65 20 65 6e 64 20 6f | 66 20 74 68 65 20 6c 61 |he end o|f the la|
|00005420| 73 74 0a 6b 6e 6f 77 6e | 20 6d 65 73 73 61 67 65 |st.known| message|
|00005430| 20 69 73 20 66 6f 75 6e | 64 20 61 6e 64 20 74 68 | is foun|d and th|
|00005440| 65 6e 20 74 68 65 20 70 | 61 72 73 69 6e 67 20 6f |en the p|arsing o|
|00005450| 66 20 6e 65 77 20 6d 65 | 73 73 61 67 65 73 20 62 |f new me|ssages b|
|00005460| 65 67 69 6e 73 0a 74 68 | 65 72 65 20 61 6e 64 20 |egins.th|ere and |
|00005470| 74 68 65 20 6d 65 73 73 | 61 67 65 20 61 72 65 20 |the mess|age are |
|00005480| 61 70 70 65 6e 64 65 64 | 20 74 6f 20 76 6d 2d 6d |appended| to vm-m|
|00005490| 65 73 73 61 67 65 2d 6c | 69 73 74 2e 0a 0a 76 6d |essage-l|ist...vm|
|000054a0| 2d 66 6f 6c 64 65 72 2d | 74 79 70 65 20 69 73 20 |-folder-|type is |
|000054b0| 69 6e 69 74 69 61 6c 69 | 7a 65 64 20 68 65 72 65 |initiali|zed here|
|000054c0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|000054d0| 76 6d 2d 62 75 69 6c 64 | 2d 68 65 61 64 65 72 2d |vm-build|-header-|
|000054e0| 6f 72 64 65 72 2d 61 6c | 69 73 74 20 23 5b 28 76 |order-al|ist #[(v|
|000054f0| 68 65 61 64 65 72 73 29 | 20 22 c0 89 42 c0 19 89 |headers)| "..B...|
|00005500| 1a 11 0b ab 92 09 0b 40 | c0 42 c0 42 a1 88 09 41 |.......@|.B.B...A|
|00005510| 11 0b 41 89 13 ac 6e 5c | 6e 41 2a 87 22 20 5b 6e |..A...n\|nA*." [n|
|00005520| 69 6c 20 6c 69 73 74 20 | 6f 72 64 65 72 2d 61 6c |il list |order-al|
|00005530| 69 73 74 20 76 68 65 61 | 64 65 72 73 5d 20 34 5d |ist vhea|ders] 4]|
|00005540| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 6d 2d |).(defal|ias 'vm-|
|00005550| 72 65 6f 72 64 65 72 2d | 6d 65 73 73 61 67 65 2d |reorder-|message-|
|00005560| 68 65 61 64 65 72 73 20 | 23 5b 28 6d 65 73 73 61 |headers |#[(messa|
|00005570| 67 65 20 6b 65 65 70 2d | 6c 69 73 74 20 64 69 73 |ge keep-|list dis|
|00005580| 63 61 72 64 2d 72 65 67 | 65 78 70 29 20 22 8a 08 |card-reg|exp) "..|
|00005590| ab 8c 08 c1 48 c2 48 71 | 88 0b 14 0d 16 06 8a 8c |....H.Hq|........|
|000055a0| 7e 88 08 ab ae 08 c7 48 | c8 48 ab a7 8a 08 c9 48 |~......H|.H.....H|
|000055b0| c1 48 62 88 ca 1e 0b cc | 08 c7 48 c8 48 cd 08 21 |.Hb.....|..H.H..!|
|000055c0| ca 23 88 29 08 c9 48 ce | cf 20 c9 94 d0 93 49 29 |.#.)..H.|. ....I)|
|000055d0| 82 39 02 d1 20 64 65 5a | 56 d0 89 1e 12 1e 13 89 |.9.. deZ|V.......|
|000055e0| 1e 14 ab 91 cf 20 65 d0 | 93 89 16 13 ab 87 cf 20 |..... e.|....... |
|000055f0| 64 d0 93 16 12 d5 8e d6 | 0c 21 d0 89 89 89 89 89 |d.......|.!......|
|00005600| 70 d0 ca d0 89 89 89 d7 | 20 1e 18 1e 19 1e 1a 1e |p.......| .......|
|00005610| 1b 1e 1c 1e 0b 1e 1d 1e | 1e 1e 1f 1e 20 1e 21 1e |........|.... .!.|
|00005620| 5c 22 1e 23 1e 24 1e 25 | e6 8e 08 ab c3 0e 27 e8 |\".#.$.%|......'.|
|00005630| 61 ab a5 08 c1 48 c8 48 | ac 9e 08 c9 48 c9 48 62 |a....H.H|....H.Hb|
|00005640| 88 ce 79 88 08 c1 48 c8 | ca 49 88 e9 70 08 c9 48 |..y...H.|.I..p..H|
|00005650| c1 48 cd 08 21 53 23 88 | ea eb 21 89 16 23 71 88 |.H..!S#.|..!..#q.|
|00005660| e9 0e 1e 08 c9 48 c1 48 | cd 08 21 23 88 65 62 88 |.....H.H|..!#.eb.|
|00005670| 60 16 19 ec ed 21 ab 85 | d0 79 88 aa 76 67 ee 55 |`....!..|.y..vg.U|
|00005680| 84 79 01 ef 20 83 79 01 | f0 20 16 20 f1 0e 25 21 |.y.. .y.|. . ..%!|
|00005690| 89 16 21 ac 84 0e 06 ab | 8a 0e 06 ab c9 ec 0e 06 |..!.....|........|
|000056a0| 21 ab c3 08 ac 87 60 0e | 20 7c 88 aa 46 0e 1c ac |!.....`.| |..F...|
|000056b0| 8d 60 0e 20 d0 42 42 89 | 16 1c 16 1b aa a2 60 0e |.`. .BB.|......`.|
|000056c0| 1b 41 40 55 ab 89 0e 1b | 41 0e 20 a0 88 aa 91 0e |.A@U....|A. .....|
|000056d0| 1b 41 60 0e 20 d0 42 42 | a1 88 0e 1b 41 41 16 1b |.A`. .BB|....AA..|
|000056e0| 0e 20 62 88 aa 0d 0e 21 | ab 8e 0e 21 0e 20 60 0e |. b....!|...!. `.|
|000056f0| 21 41 42 42 a1 88 aa 89 | 0e 20 60 0e 5c 22 42 42 |!ABB....|. `.\"BB|
|00005700| 16 5c 22 0e 20 62 88 82 | e4 00 60 16 1a 0e 1c ab |.\". b..|..`.....|
|00005710| 94 e9 70 0e 1c 40 0e 1c | 41 40 23 88 0e 1c 41 41 |..p..@..|A@#...AA|
|00005720| 89 16 1c ac 6c 08 ab 86 | 60 0e 1a 5a 16 1f 0e 25 |....l...|`..Z...%|
|00005730| ab a6 0e 25 40 41 9f 89 | 16 21 ab 94 e9 70 0e 21 |...%@A..|.!...p.!|
|00005740| 40 0e 21 41 40 23 88 0e | 21 41 41 89 16 21 ac 6c |@.!A@#..|!AA..!.l|
|00005750| 0e 25 41 89 16 25 ac 5a | 0e 5c 22 9f 89 16 5c 22 |.%A..%.Z|.\"...\"|
|00005760| ab 94 e9 70 0e 5c 22 40 | 0e 5c 22 41 40 23 88 0e |...p.\"@|.\"A@#..|
|00005770| 5c 22 41 41 89 16 5c 22 | ac 6c 0e 19 0e 1a 7c 88 |\"AA..\"|.l....|.|
|00005780| 08 ab a2 ca 1e 32 08 c1 | 48 c2 48 71 88 08 c9 48 |.....2..|H.Hq...H|
|00005790| c1 48 62 88 e9 0e 23 21 | 88 60 cd 08 21 7c 88 f3 |.Hb...#!|.`..!|..|
|000057a0| 0e 18 21 88 29 29 08 ad | a5 08 c9 48 ce cf 20 08 |..!.))..|...H.. .|
|000057b0| c9 48 c1 48 0e 1f 5c 5c | d0 93 49 88 f4 08 21 62 |.H.H..\\|..I...!b|
|000057c0| 88 ef 20 ad 8a 08 c7 48 | c8 f5 f6 20 f7 51 49 2e |.. ....H|... .QI.|
|000057d0| 13 2b 87 22 20 5b 6d 65 | 73 73 61 67 65 20 31 20 |.+." [me|ssage 1 |
|000057e0| 39 20 76 6d 2d 76 69 73 | 69 62 6c 65 2d 68 65 61 |9 vm-vis|ible-hea|
|000057f0| 64 65 72 73 20 6b 65 65 | 70 2d 6c 69 73 74 20 76 |ders kee|p-list v|
|00005800| 6d 2d 69 6e 76 69 73 69 | 62 6c 65 2d 68 65 61 64 |m-invisi|ble-head|
|00005810| 65 72 2d 72 65 67 65 78 | 70 20 64 69 73 63 61 72 |er-regex|p discar|
|00005820| 64 2d 72 65 67 65 78 70 | 20 33 20 31 32 20 30 20 |d-regexp| 3 12 0 |
|00005830| 74 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |t case-f|old-sear|
|00005840| 63 68 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |ch re-se|arch-for|
|00005850| 77 61 72 64 20 76 6d 2d | 74 65 78 74 2d 6f 66 20 |ward vm-|text-of |
|00005860| 32 20 6d 61 6b 65 2d 6d | 61 72 6b 65 72 20 6e 69 |2 make-m|arker ni|
|00005870| 6c 20 62 75 66 66 65 72 | 2d 73 69 7a 65 20 76 6d |l buffer|-size vm|
|00005880| 2d 73 72 2d 6d 61 78 20 | 76 6d 2d 73 72 2d 6d 69 |-sr-max |vm-sr-mi|
|00005890| 6e 20 76 6d 2d 73 72 2d | 63 6c 69 70 20 28 28 62 |n vm-sr-|clip ((b|
|000058a0| 79 74 65 2d 63 6f 64 65 | 20 22 7e 88 08 ab 8e 09 |yte-code| "~.....|
|000058b0| 5c 6e 7d 88 09 c3 89 93 | 88 5c 6e c3 89 93 88 c3 |\n}.....|.\n.....|
|000058c0| 87 22 20 5b 76 6d 2d 73 | 72 2d 63 6c 69 70 20 76 |." [vm-s|r-clip v|
|000058d0| 6d 2d 73 72 2d 6d 69 6e | 20 76 6d 2d 73 72 2d 6d |m-sr-min| vm-sr-m|
|000058e0| 61 78 20 6e 69 6c 5d 20 | 33 29 29 20 76 6d 2d 62 |ax nil] |3)) vm-b|
|000058f0| 75 69 6c 64 2d 68 65 61 | 64 65 72 2d 6f 72 64 65 |uild-hea|der-orde|
|00005900| 72 2d 61 6c 69 73 74 20 | 62 75 66 66 65 72 2d 6d |r-alist |buffer-m|
|00005910| 6f 64 69 66 69 65 64 2d | 70 20 6f 6c 64 2d 62 75 |odified-|p old-bu|
|00005920| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00005930| 6f 6c 64 2d 68 65 61 64 | 65 72 2d 73 74 61 72 74 |old-head|er-start|
|00005940| 20 6e 65 77 2d 68 65 61 | 64 65 72 2d 73 74 61 72 | new-hea|der-star|
|00005950| 74 20 75 6e 77 61 6e 74 | 65 64 2d 74 61 69 6c 20 |t unwant|ed-tail |
|00005960| 75 6e 77 61 6e 74 65 64 | 2d 6c 69 73 74 20 62 75 |unwanted|-list bu|
|00005970| 66 66 65 72 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |ffer-fil|e-name f|
|00005980| 6f 6c 64 65 72 2d 62 75 | 66 66 65 72 20 76 68 65 |older-bu|ffer vhe|
|00005990| 61 64 65 72 2d 6f 66 66 | 73 65 74 20 65 6e 64 2d |ader-off|set end-|
|000059a0| 6f 66 2d 68 65 61 64 65 | 72 20 6c 69 73 74 20 65 |of-heade|r list e|
|000059b0| 78 74 72 61 73 20 77 6f | 72 6b 2d 62 75 66 66 65 |xtras wo|rk-buffe|
|000059c0| 72 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |r buffer|-read-on|
|000059d0| 6c 79 20 68 65 61 64 65 | 72 2d 61 6c 69 73 74 20 |ly heade|r-alist |
|000059e0| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ab 84 |((byte-c|ode "...|
|000059f0| c1 08 21 88 c1 87 22 20 | 5b 77 6f 72 6b 2d 62 75 |..!..." |[work-bu|
|00005a00| 66 66 65 72 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |ffer kil|l-buffer|
|00005a10| 5d 20 32 29 29 20 76 6d | 2d 66 6f 6c 64 65 72 2d |] 2)) vm|-folder-|
|00005a20| 74 79 70 65 20 62 61 62 | 79 6c 20 69 6e 73 65 72 |type bab|yl inser|
|00005a30| 74 2d 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |t-buffer|-substri|
|00005a40| 6e 67 20 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |ng gener|ate-new-|
|00005a50| 62 75 66 66 65 72 20 22 | 2a 76 6d 2d 77 6f 72 6b |buffer "|*vm-work|
|00005a60| 2a 22 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 3e |*" looki|ng-at ">|
|00005a70| 46 72 6f 6d 20 22 20 3f | 5c 6e 20 76 6d 2d 6d 61 |From " ?|\n vm-ma|
|00005a80| 74 63 68 2d 68 65 61 64 | 65 72 20 76 6d 2d 6d 61 |tch-head|er vm-ma|
|00005a90| 74 63 68 65 64 2d 68 65 | 61 64 65 72 2d 65 6e 64 |tched-he|ader-end|
|00005aa0| 20 76 6d 2d 6d 61 74 63 | 68 2d 6f 72 64 65 72 65 | vm-matc|h-ordere|
|00005ab0| 64 2d 68 65 61 64 65 72 | 20 69 6e 68 69 62 69 74 |d-header| inhibit|
|00005ac0| 2d 71 75 69 74 20 73 65 | 74 2d 62 75 66 66 65 72 |-quit se|t-buffer|
|00005ad0| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 76 6d 2d 76 |-modifie|d-p vm-v|
|00005ae0| 68 65 61 64 65 72 73 2d | 6f 66 20 22 5e 22 20 76 |headers-|of "^" v|
|00005af0| 6d 2d 6d 61 74 63 68 65 | 64 2d 68 65 61 64 65 72 |m-matche|d-header|
|00005b00| 2d 6e 61 6d 65 20 22 3a | 22 5d 20 31 36 5d 29 0a |-name ":|"] 16]).|
|00005b10| 28 64 65 66 61 6c 69 61 | 73 20 27 76 6d 2d 72 65 |(defalia|s 'vm-re|
|00005b20| 61 64 2d 61 74 74 72 69 | 62 75 74 65 73 20 23 5b |ad-attri|butes #[|
|00005b30| 28 6d 65 73 73 61 67 65 | 2d 6c 69 73 74 29 20 22 |(message|-list) "|
|00005b40| 8a 08 ae 81 09 c2 89 89 | 89 c3 c4 20 21 c5 a6 c6 |........|... !...|
|00005b50| 5c 5c c7 c8 89 1e 09 1e | 5c 6e 1e 0b 1e 0c 1e 0d |\\......|\n......|
|00005b60| 1e 0e 1e 0f 1e 10 89 1e | 11 83 8f 01 0e 0d 54 16 |........|......T.|
|00005b70| 0d 0e 11 40 d2 48 84 49 | 01 0e 11 40 c2 48 d3 48 |...@.H.I|...@.H.H|
|00005b80| 62 88 d4 d5 0e 11 40 c2 | 48 d6 48 c2 23 88 0e 11 |b.....@.|H.H.#...|
|00005b90| 40 c2 48 d7 d8 20 49 88 | 0e 11 40 c2 48 d3 48 62 |@.H.. I.|..@.H.Hb|
|00005ba0| 88 d9 0e 1a db 0e 11 40 | 21 c7 23 ab fe d2 94 62 |.......@|!.#....b|
|00005bb0| 88 c8 dc dd 8f 88 de 0e | 09 21 ab 91 df 0e 09 21 |........|.!.....!|
|00005bc0| 16 09 0e 11 40 d6 48 d2 | c7 49 88 aa bd 0e 09 40 |....@.H.|.I.....@|
|00005bd0| 47 0e 20 57 ab 94 0e 11 | 40 d6 48 d2 c7 49 88 0e |G. W....|@.H..I..|
|00005be0| 09 e1 0e 09 40 0e 20 5c | 22 a0 88 0e 09 41 40 47 |....@. \|"....A@G|
|00005bf0| 0e 5c 22 57 ab 96 0e 11 | 40 d6 48 d2 c7 49 88 0e |.\"W....|@.H..I..|
|00005c00| 09 41 e1 0e 09 41 40 0e | 5c 22 5c 22 a0 88 0e 11 |.A...A@.|\"\"....|
|00005c10| 40 d6 48 d7 d2 0e 09 38 | 49 88 0e 11 40 d7 0e 09 |@.H....8|I...@...|
|00005c20| 41 40 49 88 0e 11 40 d2 | 0e 09 40 49 88 aa d4 0e |A@I...@.|..@I....|
|00005c30| 23 ab b3 d9 0e 24 db 0e | 11 40 21 c7 23 ab a7 0e |#....$..|.@!.#...|
|00005c40| 11 40 d7 e5 0e 5c 22 c8 | 5c 22 49 88 d3 94 62 88 |.@...\".|\"I...b.|
|00005c50| 0e 11 40 d2 e5 0e 20 c8 | 5c 22 49 88 e6 0e 11 40 |..@... .|\"I....@|
|00005c60| e7 e8 21 3f c7 23 88 aa | 9d 0e 11 40 d7 e5 0e 5c |..!?.#..|...@...\|
|00005c70| 22 c8 5c 22 49 88 0e 11 | 40 d2 e5 0e 20 c8 5c 22 |".\"I...|@... .\"|
|00005c80| 49 88 e9 0e 11 40 c7 5c | 22 88 0e 2a eb 61 ab 86 |I....@.\|"..*.a..|
|00005c90| ec 0e 11 40 21 88 0e 11 | 40 d2 48 d2 48 ab 87 0e |...@!...|@.H.H...|
|00005ca0| 0e 54 16 0e aa 9e 0e 11 | 40 d2 48 c2 48 ab 87 0e |.T......|@.H.H...|
|00005cb0| 10 54 16 10 aa 8e 0e 11 | 40 d2 48 d3 48 ab 85 0e |.T......|@.H.H...|
|00005cc0| 0f 54 16 0f 0e 0d 0e 0c | a6 c2 55 ab 86 ed ee 0e |.T......|..U.....|
|00005cd0| 0d 5c 22 88 0e 11 41 89 | 16 11 84 2a 00 0e 0d 0e |.\"...A.|...*....|
|00005ce0| 0c 59 ab 84 ed ef 21 88 | 08 3f ad 8f 0e 30 0e 0d |.Y....!.|.?...0..|
|00005cf0| 0e 10 0e 0f 0e 0e af 05 | 89 16 31 2e 5c 6e 87 22 |........|..1.\n."|
|00005d00| 20 5b 6d 65 73 73 61 67 | 65 2d 6c 69 73 74 20 76 | [messag|e-list v|
|00005d10| 6d 2d 6d 65 73 73 61 67 | 65 2d 6c 69 73 74 20 30 |m-messag|e-list 0|
|00005d20| 20 76 6d 2d 61 62 73 20 | 72 61 6e 64 6f 6d 20 31 | vm-abs |random 1|
|00005d30| 31 20 32 35 20 74 20 6e | 69 6c 20 64 61 74 61 20 |1 25 t n|il data |
|00005d40| 6f 6c 64 70 6f 69 6e 74 | 20 63 61 73 65 2d 66 6f |oldpoint| case-fo|
|00005d50| 6c 64 2d 73 65 61 72 63 | 68 20 6d 6f 64 75 6c 75 |ld-searc|h modulu|
|00005d60| 73 20 76 6d 2d 74 6f 74 | 61 6c 2d 63 6f 75 6e 74 |s vm-tot|al-count|
|00005d70| 20 76 6d 2d 64 65 6c 65 | 74 65 64 2d 63 6f 75 6e | vm-dele|ted-coun|
|00005d80| 74 20 76 6d 2d 75 6e 72 | 65 61 64 2d 63 6f 75 6e |t vm-unr|ead-coun|
|00005d90| 74 20 76 6d 2d 6e 65 77 | 2d 63 6f 75 6e 74 20 6d |t vm-new|-count m|
|00005da0| 70 20 32 20 31 20 73 65 | 61 72 63 68 2d 66 6f 72 |p 2 1 se|arch-for|
|00005db0| 77 61 72 64 20 22 5c 6e | 5c 6e 22 20 34 20 33 20 |ward "\n|\n" 4 3 |
|00005dc0| 70 6f 69 6e 74 2d 6d 61 | 72 6b 65 72 20 72 65 2d |point-ma|rker re-|
|00005dd0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 76 |search-f|orward v|
|00005de0| 6d 2d 61 74 74 72 69 62 | 75 74 65 73 2d 68 65 61 |m-attrib|utes-hea|
|00005df0| 64 65 72 2d 72 65 67 65 | 78 70 20 76 6d 2d 74 65 |der-rege|xp vm-te|
|00005e00| 78 74 2d 6f 66 20 28 62 | 79 74 65 2d 63 6f 64 65 |xt-of (b|yte-code|
|00005e10| 20 22 60 10 c1 70 21 89 | 12 3c ab 86 5c 6e 47 c3 | "`..p!.|.<..\nG.|
|00005e20| 56 ac 8c c4 5c 6e 21 ac | 87 c5 c6 08 c7 20 23 88 |V...\n!.|..... #.|
|00005e30| c1 87 22 20 5b 6f 6c 64 | 70 6f 69 6e 74 20 72 65 |.." [old|point re|
|00005e40| 61 64 20 64 61 74 61 20 | 31 20 76 65 63 74 6f 72 |ad data |1 vector|
|00005e50| 70 20 65 72 72 6f 72 20 | 22 42 61 64 20 78 2d 76 |p error |"Bad x-v|
|00005e60| 6d 2d 76 35 2d 64 61 74 | 61 20 61 74 20 25 64 20 |m-v5-dat|a at %d |
|00005e70| 69 6e 20 62 75 66 66 65 | 72 20 25 73 22 20 62 75 |in buffe|r %s" bu|
|00005e80| 66 66 65 72 2d 6e 61 6d | 65 5d 20 35 29 20 28 28 |ffer-nam|e] 5) ((|
|00005e90| 65 72 72 6f 72 20 28 62 | 79 74 65 2d 63 6f 64 65 |error (b|yte-code|
|00005ea0| 20 22 c0 c1 5c 6e c3 20 | 23 88 c4 0d c6 5c 22 c4 | "..\n. |#....\".|
|00005eb0| 0e 07 c6 5c 22 c6 45 16 | 08 c9 0e 08 40 ca 5c 22 |...\".E.|....@.\"|
|00005ec0| 87 22 20 5b 6d 65 73 73 | 61 67 65 20 22 42 61 64 |." [mess|age "Bad|
|00005ed0| 20 78 2d 76 6d 2d 76 35 | 2d 64 61 74 61 20 68 65 | x-vm-v5|-data he|
|00005ee0| 61 64 65 72 20 61 74 20 | 25 64 20 69 6e 20 62 75 |ader at |%d in bu|
|00005ef0| 66 66 65 72 20 25 73 2c | 20 69 67 6e 6f 72 69 6e |ffer %s,| ignorin|
|00005f00| 67 22 20 6f 6c 64 70 6f | 69 6e 74 20 62 75 66 66 |g" oldpo|int buff|
|00005f10| 65 72 2d 6e 61 6d 65 20 | 6d 61 6b 65 2d 76 65 63 |er-name |make-vec|
|00005f20| 74 6f 72 20 76 6d 2d 61 | 74 74 72 69 62 75 74 65 |tor vm-a|ttribute|
|00005f30| 73 2d 76 65 63 74 6f 72 | 2d 6c 65 6e 67 74 68 20 |s-vector|-length |
|00005f40| 6e 69 6c 20 76 6d 2d 63 | 61 63 68 65 2d 76 65 63 |nil vm-c|ache-vec|
|00005f50| 74 6f 72 2d 6c 65 6e 67 | 74 68 20 64 61 74 61 20 |tor-leng|th data |
|00005f60| 76 6d 2d 73 65 74 2d 6e | 65 77 2d 66 6c 61 67 2d |vm-set-n|ew-flag-|
|00005f70| 69 6e 2d 76 65 63 74 6f | 72 20 74 5d 20 34 29 29 |in-vecto|r t] 4))|
|00005f80| 29 20 76 65 63 74 6f 72 | 70 20 76 6d 2d 63 6f 6e |) vector|p vm-con|
|00005f90| 76 65 72 74 2d 76 34 2d | 61 74 74 72 69 62 75 74 |vert-v4-|attribut|
|00005fa0| 65 73 20 76 6d 2d 61 74 | 74 72 69 62 75 74 65 73 |es vm-at|tributes|
|00005fb0| 2d 76 65 63 74 6f 72 2d | 6c 65 6e 67 74 68 20 76 |-vector-|length v|
|00005fc0| 6d 2d 65 78 74 65 6e 64 | 2d 76 65 63 74 6f 72 20 |m-extend|-vector |
|00005fd0| 76 6d 2d 63 61 63 68 65 | 2d 76 65 63 74 6f 72 2d |vm-cache|-vector-|
|00005fe0| 6c 65 6e 67 74 68 20 76 | 6d 2d 62 65 72 6b 65 6c |length v|m-berkel|
|00005ff0| 65 79 2d 6d 61 69 6c 2d | 63 6f 6d 70 61 74 69 62 |ey-mail-|compatib|
|00006000| 69 6c 69 74 79 20 76 6d | 2d 62 65 72 6b 65 6c 65 |ility vm|-berkele|
|00006010| 79 2d 6d 61 69 6c 2d 73 | 74 61 74 75 73 2d 68 65 |y-mail-s|tatus-he|
|00006020| 61 64 65 72 2d 72 65 67 | 65 78 70 20 6d 61 6b 65 |ader-reg|exp make|
|00006030| 2d 76 65 63 74 6f 72 20 | 76 6d 2d 73 65 74 2d 75 |-vector |vm-set-u|
|00006040| 6e 72 65 61 64 2d 66 6c | 61 67 20 6c 6f 6f 6b 69 |nread-fl|ag looki|
|00006050| 6e 67 2d 61 74 20 22 2e | 2a 52 2e 2a 22 20 76 6d |ng-at ".|*R.*" vm|
|00006060| 2d 73 65 74 2d 6e 65 77 | 2d 66 6c 61 67 2d 6f 66 |-set-new|-flag-of|
|00006070| 20 76 6d 2d 66 6f 6c 64 | 65 72 2d 74 79 70 65 20 | vm-fold|er-type |
|00006080| 62 61 62 79 6c 20 76 6d | 2d 72 65 61 64 2d 62 61 |babyl vm|-read-ba|
|00006090| 62 79 6c 2d 61 74 74 72 | 69 62 75 74 65 73 20 6d |byl-attr|ibutes m|
|000060a0| 65 73 73 61 67 65 20 22 | 52 65 61 64 69 6e 67 20 |essage "|Reading |
|000060b0| 61 74 74 72 69 62 75 74 | 65 73 2e 2e 2e 20 25 64 |attribut|es... %d|
|000060c0| 22 20 22 52 65 61 64 69 | 6e 67 20 61 74 74 72 69 |" "Readi|ng attri|
|000060d0| 62 75 74 65 73 2e 2e 2e | 20 64 6f 6e 65 22 20 76 |butes...| done" v|
|000060e0| 6d 2d 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 2d 63 |m-modifi|cation-c|
|000060f0| 6f 75 6e 74 65 72 20 76 | 6d 2d 74 6f 74 61 6c 73 |ounter v|m-totals|
|00006100| 5d 20 31 30 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |] 10]).(|defalias|
|00006110| 20 27 76 6d 2d 72 65 61 | 64 2d 62 61 62 79 6c 2d | 'vm-rea|d-babyl-|
|00006120| 61 74 74 72 69 62 75 74 | 65 73 20 23 5b 28 6d 65 |attribut|es #[(me|
|00006130| 73 73 61 67 65 29 20 22 | c0 c1 c2 0b c1 5c 22 1c |ssage) "|.....\".|
|00006140| 1d 1e 06 0e 07 c8 0c 49 | 88 8a 0e 07 c9 48 c9 48 |.......I|.....H.H|
|00006150| 62 88 c8 75 88 0e 07 ca | 48 cb 67 cc 55 ad 81 c0 |b..u....|H.g.U...|
|00006160| 49 88 c8 75 88 6d 84 b7 | 00 cd ce 21 84 b7 00 cd |I..u.m..|...!....|
|00006170| cf 21 ab 88 d0 0e 07 c0 | 5c 22 88 aa e6 cd d1 21 |.!......|\".....!|
|00006180| ab 88 d2 0e 07 c0 5c 22 | 88 aa d9 cd d3 21 ab 88 |......\"|.....!..|
|00006190| d4 0e 07 c0 5c 22 88 aa | cc cd d5 21 ab 88 d6 0e |....\"..|...!....|
|000061a0| 07 c0 5c 22 88 aa bf cd | d7 21 ab 88 d8 0e 07 c0 |..\"....|.!......|
|000061b0| 5c 22 88 aa b2 cd d9 21 | ab 88 da 0e 07 c0 5c 22 |\".....!|......\"|
|000061c0| 88 aa a5 cd db 21 ab 88 | dc 0e 07 c0 5c 22 88 aa |.....!..|....\"..|
|000061d0| 98 cd dd 21 ab 88 d8 0e | 07 c0 5c 22 88 aa 8b cd |...!....|..\"....|
|000061e0| de 21 ab 86 d8 0e 07 c0 | 5c 22 88 df c1 77 88 6d |.!......|\"...w.m|
|000061f0| 84 2c 00 ca 75 88 82 2c | 00 6d ac 83 ca 75 88 cd |.,..u..,|.m...u..|
|00006200| e0 21 ab 8f e1 ca 94 ca | 95 5c 22 0d 42 15 c9 95 |.!......|.\".B...|
|00006210| 62 88 aa 6c 0e 07 e2 48 | e3 0d 49 2c 87 22 20 5b |b..l...H|..I,." [|
|00006220| 74 20 6e 69 6c 20 6d 61 | 6b 65 2d 76 65 63 74 6f |t nil ma|ke-vecto|
|00006230| 72 20 76 6d 2d 61 74 74 | 72 69 62 75 74 65 73 2d |r vm-att|ributes-|
|00006240| 76 65 63 74 6f 72 2d 6c | 65 6e 67 74 68 20 76 65 |vector-l|ength ve|
|00006250| 63 74 20 6c 61 62 65 6c | 73 20 63 61 73 65 2d 66 |ct label|s case-f|
|00006260| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6d 65 73 73 61 |old-sear|ch messa|
|00006270| 67 65 20 32 20 30 20 31 | 20 31 32 20 3f 31 20 6c |ge 2 0 1| 12 ?1 l|
|00006280| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 2c 22 20 22 20 |ooking-a|t "," " |
|00006290| 75 6e 73 65 65 6e 2c 22 | 20 76 6d 2d 73 65 74 2d |unseen,"| vm-set-|
|000062a0| 75 6e 72 65 61 64 2d 66 | 6c 61 67 2d 6f 66 20 22 |unread-f|lag-of "|
|000062b0| 20 72 65 63 65 6e 74 2c | 22 20 76 6d 2d 73 65 74 | recent,|" vm-set|
|000062c0| 2d 6e 65 77 2d 66 6c 61 | 67 2d 6f 66 20 22 20 64 |-new-fla|g-of " d|
|000062d0| 65 6c 65 74 65 64 2c 22 | 20 76 6d 2d 73 65 74 2d |eleted,"| vm-set-|
|000062e0| 64 65 6c 65 74 65 64 2d | 66 6c 61 67 2d 6f 66 20 |deleted-|flag-of |
|000062f0| 22 20 61 6e 73 77 65 72 | 65 64 2c 22 20 76 6d 2d |" answer|ed," vm-|
|00006300| 73 65 74 2d 72 65 70 6c | 69 65 64 2d 66 6c 61 67 |set-repl|ied-flag|
|00006310| 2d 6f 66 20 22 20 66 6f | 72 77 61 72 64 65 64 2c |-of " fo|rwarded,|
|00006320| 22 20 76 6d 2d 73 65 74 | 2d 66 6f 72 77 61 72 64 |" vm-set|-forward|
|00006330| 65 64 2d 66 6c 61 67 2d | 6f 66 20 22 20 66 69 6c |ed-flag-|of " fil|
|00006340| 65 64 2c 22 20 76 6d 2d | 73 65 74 2d 66 69 6c 65 |ed," vm-|set-file|
|00006350| 64 2d 66 6c 61 67 2d 6f | 66 20 22 20 72 65 64 69 |d-flag-o|f " redi|
|00006360| 73 74 72 69 62 75 74 65 | 64 2c 22 20 76 6d 2d 73 |stribute|d," vm-s|
|00006370| 65 74 2d 72 65 64 69 73 | 74 72 69 62 75 74 65 64 |et-redis|tributed|
|00006380| 2d 66 6c 61 67 2d 6f 66 | 20 22 20 65 64 69 74 65 |-flag-of| " edite|
|00006390| 64 2c 22 20 22 20 77 72 | 69 74 74 65 6e 2c 22 20 |d," " wr|itten," |
|000063a0| 22 5e 2c 22 20 22 20 5c | 5c 28 5b 5e 00 2d 20 2c |"^," " \|\([^.- ,|
|000063b0| 7f 2d ff 5d 2b 5c 5c 29 | 2c 22 20 76 6d 2d 62 75 |.-.]+\\)|," vm-bu|
|000063c0| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 2d 6e |ffer-sub|string-n|
|000063d0| 6f 2d 70 72 6f 70 65 72 | 74 69 65 73 20 34 20 33 |o-proper|ties 4 3|
|000063e0| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|000063f0| 27 76 6d 2d 73 65 74 2d | 64 65 66 61 75 6c 74 2d |'vm-set-|default-|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
